diff options
| author | Spider Boardman <spider@orb.nashua.nh.us> | 2002-04-08 22:00:51 -0400 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-04-09 06:43:50 +0000 |
| commit | 9195d1e0183389fd56aa8cf48c7d8b7d16a05928 (patch) | |
| tree | 1100f0023900965084aea3e227476c0ecbdb4b47 /lib/File | |
| parent | f14caa53de17b19c0b6f304a54cf48a223576e67 (diff) | |
| download | perl-9195d1e0183389fd56aa8cf48c7d8b7d16a05928.tar.gz | |
File::CheckTree hates @'s
Message-Id: <200204090600.CAA20267@Orb.Nashua.NH.US>
p4raw-link: @15821 on //depot/perl: f14caa53de17b19c0b6f304a54cf48a223576e67
p4raw-id: //depot/perl@15822
Diffstat (limited to 'lib/File')
| -rw-r--r-- | lib/File/CheckTree.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/File/CheckTree.pm b/lib/File/CheckTree.pm index b90945d4a4..3da9f20b34 100644 --- a/lib/File/CheckTree.pm +++ b/lib/File/CheckTree.pm @@ -110,7 +110,7 @@ sub validate { $file = $cwd . '/' . $file if $cwd && $file !~ m|^/|; # put filename in after the test operator - $this =~ s/(-\w\b)/$1 "$file"/g; + $this =~ s/(-\w\b)/$1 "\$file"/g; # change the "-Z" representing a bundle with the $one test $this =~ s/-Z/-$one/; @@ -130,7 +130,7 @@ sub validate { # to call valmess instead of die/warn directly # valmess will look up the error message from %Val_Message $this =~ s/ ^ ( (\S+) \s+ \S+ ) \s* \|\| \s* (die|warn) \s* $ - /$1 || valmess('$3', '$2', '$file')/x; + /$1 || valmess('$3', '$2', \$file)/x; } { @@ -167,7 +167,7 @@ sub validate { # in case of any cd directives, return from whence we came if ($starting_dir ne cwd) { - chdir($starting_dir) || die "$starting_dir: $!"; + chdir($starting_dir) || die "chdir $starting_dir: $!"; } return $Warnings; |