diff options
author | Eric Wong <e@80x24.org> | 2014-05-08 22:32:13 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2014-05-21 15:25:41 +0000 |
commit | 4b64856cd451f2fd732a8ce3a36669272c057cd1 (patch) | |
tree | e98363d585b099e7dfa42a22b307642845aa3b44 | |
parent | 6eb73a30e5a408d5d967827e734a5acdee19495c (diff) | |
download | public-inbox-4b64856cd451f2fd732a8ce3a36669272c057cd1.tar.gz |
Any existing directory should do.
-rwxr-xr-x | scripts/slrnspool2maildir | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/scripts/slrnspool2maildir b/scripts/slrnspool2maildir index fb7a6f25..12510a32 100755 --- a/scripts/slrnspool2maildir +++ b/scripts/slrnspool2maildir @@ -10,13 +10,15 @@ use strict; use warnings; use Email::Filter; use Email::LocalDelivery; -sub usage { "Usage:\n".join('',grep(/\t/, `head -n 24 $0`)) } +sub usage { "Usage:\n".join('',grep(/\t/, `head -n 12 $0`)) } my $spool = shift @ARGV or die usage(); my $dir = shift @ARGV or die usage(); -d $dir or die "$dir is not a directory\n"; $dir .= '/' unless $dir =~ m!/\z!; foreach my $sub (qw(cur new tmp)) { - -d "$dir/$sub" or mkdir $sub or die "mkdir $dir/$sub failed: $!\n"; + my $nd = "$dir/$sub"; + -d $nd and next; + mkdir $nd or die "mkdir $nd failed: $!\n"; } foreach my $n (grep(/\d+\z/, glob("$spool/*"))) { |