diff options
author | Guilhem Moulin <guilhem@fripost.org> | 2015-09-08 01:02:23 +0200 |
---|---|---|
committer | Guilhem Moulin <guilhem@fripost.org> | 2015-09-08 01:02:23 +0200 |
commit | 8c9328834e3340c1d3b20a5d9567fe8cd27f6d82 (patch) | |
tree | af91846ee4490572abc6b6350087372aa738acf6 | |
parent | 540c3f20afb9101a8b74936843f708bed98ef38e (diff) |
wibbleupstream/0.1
-rwxr-xr-x | interimap | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -60,8 +60,9 @@ my $COMMAND = do { usage(1) if $#command>0; $command[0] }; -usage(1) if defined $COMMAND and (($COMMAND eq 'delete' and !@ARGV) or $COMMAND eq 'rename' and $#ARGV != 1); +usage(1) if defined $COMMAND and (($COMMAND eq 'delete' and !@ARGV) or ($COMMAND eq 'rename' and $#ARGV != 1)); usage(1) if defined $COMMAND and defined $CONFIG{watch}; +usage(1) if $CONFIG{target} and !(defined $COMMAND and ($COMMAND eq 'delete'or $COMMAND eq 'rename')); $CONFIG{watch} = 60 if defined $CONFIG{watch} and $CONFIG{watch} == 0; @ARGV = map {uc $_ eq 'INBOX' ? 'INBOX' : $_ } @ARGV; # INBOX is case-insensitive |