Once again syncing after too long an absence

[p5sagit/p5-mst-13.2.git] / win32 / bin / search.pl

diff --git a/win32/bin/search.pl b/win32/bin/search.pl
index ad74001..5c3d65e 100644 (file)
--- a/win32/bin/search.pl
+++ b/win32/bin/search.pl
@@ -621,7 +621,7 @@ sub read_rc
     local($line_num, $ln, $tag) = 0;
     local($use_default, @default) = 0;
 
-    { package magic; $\17 = 0; } ## turn off warnings for when we run EXPR's
+    { package magic; $^W= 0; } ## turn off warnings for when we run EXPR's
 
     unless (open(RC, "$file")) {
        $use_default=1;