From e8847ffbd13aa097e1850a7a385a56dc5d9ce355 Mon Sep 17 00:00:00 2001
From: Michael Somos <somos@grail.cba.csuohio.edu>
Date: Mon, 6 Nov 2000 12:44:20 -0500
Subject: Various doc oddball characters.

Subject: [ID 20001106.004] Perl 5.6.0 bugs
Message-Id: <200011062244.RAA28632@grail.cba.csuohio.edu>

p4raw-id: //depot/perl@7632
---
 win32/bin/search.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'win32/bin')

diff --git a/win32/bin/search.pl b/win32/bin/search.pl
index ad74001be5..5c3d65e06e 100644
--- 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; $ = 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;
-- 
cgit v1.2.1