From d4fd94584ce239e72fc68beac2be4bb9398dac92 Mon Sep 17 00:00:00 2001 From: Guilhem Moulin Date: Thu, 19 Mar 2015 23:26:31 +0100 Subject: Try to avoid useless imports Use 'require' not 'use' to speed up the exection of some commands. --- icevault | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/icevault b/icevault index c0dd55b..9962f21 100755 --- a/icevault +++ b/icevault @@ -304,9 +304,9 @@ sub saveIdentityFile($$) { error "C<%s> exited with value %d", $CONFIG{gpg}, ($? >> 8) if $? and $? != -1; $outfh->close; - my $parent_dir = $filename =~ s/\/[^\/]+$//r; - File::Path::make_path $parent_dir unless -d $parent_dir; # create parent directories recursively - File::Copy::move $outfh->filename, $filename or error "Can't move C<%s>: %s", $outfh->filename, $!; + my $parent_dir = $file =~ s/\/[^\/]+$//r; + File::Path::make_path($parent_dir) unless -d $parent_dir; # create parent directories recursively + File::Copy::move($outfh->filename, $file) or error "Can't move C<%s>: %s", $outfh->filename, $!; # TODO: git add $filename; git commit } @@ -768,7 +768,7 @@ elsif ($command eq 'edit') { error "C<%s> exited with value %d", $CONFIG{gpg}, ($? >> 8) if $? and $? != -1; $outfh->close; - File::Copy::move $outfh->filename, $filename or error "Can't move C<%s>: %s", $outfh->filename, $!; + File::Copy::move($outfh->filename, $file) or error "Can't move C<%s>: %s", $outfh->filename, $!; } close $NULL; -- cgit v1.2.3