From 22ad938758373ec4e2f8490d62f2cdc237d50d7c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 11 Nov 2002 22:20:22 +0000
Subject: - replace ... =~ 'foo'  with  ... =~ /foo/ - remove unneeded
 parentheses for things like ... if (...)

---
 perl-install/http.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/http.pm')

diff --git a/perl-install/http.pm b/perl-install/http.pm
index 8d1e8d5de..ad05b761e 100644
--- a/perl-install/http.pm
+++ b/perl-install/http.pm
@@ -34,7 +34,7 @@ sub getFile {
 	$last = $now;
 	&$read; &$read if $buf =~ /\015/;
 	$now = $buf =~ /\012/;
-    } until ($now && $last);
+    } until $now && $last;
 
     $tmp =~ /^.*\b200\b/ ? $sock : undef;
 }
-- 
cgit v1.2.1