RT#58333 Check definedness of hash key before use

This addresses a warning new to Perl 5.12.
dap · Sep 22, 2010 · 2d1164d · 2d1164d
1 parent e462820
commit 2d1164d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Net/XMPP/Debug.pm b/lib/Net/XMPP/Debug.pm
@@ -151,7 +151,7 @@ sub Init
     my %args;
     while($#_ >= 0) { $args{ lc pop(@_) } = pop(@_); }
 
-    delete($args{file}) if (lc($args{file}) eq "stdout");
+    delete($args{file}) if (defined $args{file} && lc($args{file}) eq "stdout");
 
     $args{time} = 0 if !exists($args{time});
     $args{setdefault} = 0 if !exists($args{setdefault});