X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fre-engine-Hooks.git;a=blobdiff_plain;f=src%2Fupdate.pl;fp=src%2Fupdate.pl;h=a1eac2545d72857be3dc704da092850ab417fef5;hp=1c5e40d454d4a339efb5b6f9d39f599f57a0a393;hb=334f1b94af28b0ccc9440d2321bc7ca8423da073;hpb=9fc90d81cde4cbe8bff27adf3cc3624c86988f1a diff --git a/src/update.pl b/src/update.pl index 1c5e40d..a1eac25 100644 --- a/src/update.pl +++ b/src/update.pl @@ -43,13 +43,13 @@ local $SIG{'INT'} = sub { exit 1 }; sub new { my $class = shift; - + my %args = @_; my ($path, $indent, $keep) = @args{qw}; die "Path $path already exists" if -e $path; File::Path::mkpath($path); - + bless { path => $path, indent => $indent || 0, @@ -347,4 +347,4 @@ for my $tag (sort { $a <=> $b } keys %perls) { print $out sort @manifest_files, @source_files; print "done\n"; -} +}