From e8b93c7c68c4b56cdc10249ba3740a504f30e2ee Mon Sep 17 00:00:00 2001
From: "cyeh%bluemartini.com" <>
Date: Tue, 22 Aug 2000 02:50:41 +0000
Subject: fix for bug #44622: perl5.6 vs perl5.005 -w: more anal 5.6 causes
 errors. patches by mtakacs@pacbell.net.

---
 CGI.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'CGI.pl')

diff --git a/CGI.pl b/CGI.pl
index 085b31cf3..9c7484b93 100644
--- a/CGI.pl
+++ b/CGI.pl
@@ -118,7 +118,7 @@ sub ParseUrlString {
             $isnull{$name} = 1;
         }
     }
-    if (defined %isnull) {
+    if (%isnull) {
         foreach my $name (keys(%isnull)) {
             if (!defined $f->{$name}) {
                 $f->{$name} = "";
-- 
cgit v1.2.1