From 4b64856cd451f2fd732a8ce3a36669272c057cd1 Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Thu, 8 May 2014 22:32:13 +0000 Subject: slrnspool2maildir: fix help and dir creation Any existing directory should do. --- scripts/slrnspool2maildir | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'scripts') 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/*"))) { -- cgit v1.2.3-24-ge0c7