From: Spider Boardman <spider@orb.nashua.nh.us>
Date: Tue, 9 Apr 2002 02:00:51 +0000 (-0400)
Subject: File::CheckTree hates @'s
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9195d1e0183389fd56aa8cf48c7d8b7d16a05928;p=p5sagit%2Fp5-mst-13.2.git

File::CheckTree hates @'s
   Message-Id: <200204090600.CAA20267@Orb.Nashua.NH.US>
p4raw-link: @15821 on //depot/perl: f14caa53de17b19c0b6f304a54cf48a223576e67

p4raw-id: //depot/perl@15822
---

diff --git a/lib/File/CheckTree.pm b/lib/File/CheckTree.pm
index b90945d..3da9f20 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;