cpet/openbsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix a "Use of uninitialized value" warning

Browse Source
This commit is contained in:
jasper 2012-11-12 22:03:50 +00:00
parent 0f9eea998d
commit cb296b876e
2 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
net/p5-Net-XMPP/Makefile
View File

@ -1,9 +1,9 @@
# $OpenBSD: Makefile,v 1.5 2010/12/03 11:45:43 ajacoutot Exp $
# $OpenBSD: Makefile,v 1.6 2012/11/12 22:03:50 jasper Exp $
COMMENT= XMPP perl library
DISTNAME= Net-XMPP-1.02
REVISION= 0
REVISION= 1
CATEGORIES= net
MODULES= cpan

18
net/p5-Net-XMPP/patches/patch-lib_Net_XMPP_Debug_pm Normal file
View File

@ -0,0 +1,18 @@
$OpenBSD: patch-lib_Net_XMPP_Debug_pm,v 1.1 2012/11/12 22:03:50 jasper Exp $
RT#58333 Check definedness of hash key before use
This addresses a warning new to Perl 5.12.
https://github.com/dap/Net-XMPP/commit/2d1164d7c50d7c034f3d1efb03ad9319b24dfd24
--- lib/Net/XMPP/Debug.pm.orig Mon Nov 12 23:02:07 2012
+++ lib/Net/XMPP/Debug.pm Mon Nov 12 23:02:30 2012
@@ -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});