diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/File/CheckTree.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/File/CheckTree.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/File/CheckTree.pm b/Master/tlpkg/tlperl/lib/File/CheckTree.pm index d7948f2385f..4d53c5254dd 100644 --- a/Master/tlpkg/tlperl/lib/File/CheckTree.pm +++ b/Master/tlpkg/tlperl/lib/File/CheckTree.pm @@ -7,7 +7,7 @@ use File::Spec; use warnings; use strict; -our $VERSION = '4.4'; +our $VERSION = '4.41'; our @ISA = qw(Exporter); our @EXPORT = qw(validate); @@ -119,7 +119,7 @@ sub validate { my $this = $test; # expand relative $file to full pathname if preceded by cd directive - $file = File::Spec->catfile($cwd, $file) + $file = File::Spec->catfile($cwd, $file) if $cwd && !File::Spec->file_name_is_absolute($file); # put filename in after the test operator @@ -137,7 +137,7 @@ sub validate { } else { # add "|| warn" as a default disposition - $this .= ' || warn' unless $this =~ /\|\|/; + $this .= ' || warn' unless $this =~ /\|\|/; # change a generic ".. || die" or ".. || warn" # to call valmess instead of die/warn directly @@ -163,7 +163,7 @@ sub validate { # do the test eval $this; - # re-raise an exception caused by a "... || die" test + # re-raise an exception caused by a "... || die" test if (my $err = $@) { # in case of any cd directives, return from whence we came if ($starting_dir ne cwd) { |