diff options
Diffstat (limited to 'perl5/Local/Homedir/Mail.pm')
-rw-r--r-- | perl5/Local/Homedir/Mail.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl5/Local/Homedir/Mail.pm b/perl5/Local/Homedir/Mail.pm index 6ee94046..d1e08ff0 100644 --- a/perl5/Local/Homedir/Mail.pm +++ b/perl5/Local/Homedir/Mail.pm @@ -76,7 +76,7 @@ sub archive_to_mbox { $expanded->acceptMessages; $mgr->closeAllFolders; open my $touch_fh, ">", - catfile($expanded_path, "." . (splitpath $mbox_path)[2]) . ".done"; + catfile($expanded_path, ".expanded", (splitpath $mbox_path)[2]); gzip($mbox_path, "$mbox_path.gz") or die "gzip failed: $GzipError\n"; unlink $mbox_path if -e "$mbox_path.gz"; @@ -86,7 +86,7 @@ sub expand_mbox { my ($source_path, $target) = @_; (my $source_name = (splitpath $source_path)[2]) =~ s/\.gz$//; my $expanded_path = catfile $target, ".$source_name"; - my $donefile = $expanded_path . ".done"; + my $donefile = catfile $target, ".expanded", $source_name; # Check whether we finished, or got partway there. return if -e $donefile; |