From c39ce7aa14f2424c874cc58b5ce5249a05fabe66 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 22 Jan 2004 20:24:49 +0000
Subject: perl_checker fixes

---
 web_wizard/Apache.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'web_wizard')

diff --git a/web_wizard/Apache.pm b/web_wizard/Apache.pm
index 6cb7187e..0f28559e 100755
--- a/web_wizard/Apache.pm
+++ b/web_wizard/Apache.pm
@@ -48,6 +48,7 @@ my $o = {
     init => sub {
     if (-f $file) {
 	open my $FH, $file or die "$! ($file)";
+     local $_;
 	while (<$FH>) {
 	    if (/^\s*#?\s*DocumentRoot\s+(.*)/) {
 		close($FH);
-- 
cgit v1.2.1