Skip Menu |

This queue is for tickets about the XML-CommonNS CPAN distribution.

Report information
The Basics
Id: 98952
Status: new
Priority: 0/
Queue: XML-CommonNS

Owner: Nobody in particular
Requestors: ntyni [...]

Bug Information
Severity: Unimportant
Broken in: 0.06
Fixed in: (no value)


Subject: Use of uninitialized value $opt[0]
Download (untitled) / with headers
text/plain 193b
Hi, using this module will trigger a warning: Use of uninitialized value $opt[0] in string eq at /home/niko/tmp/libxml-commonns-perl/blib/lib/XML/ line 55. Trivial patch attached.
Subject: 0001-Fix-a-warning-about-an-uninitialized-value.patch
From f6bedaae4fb2f0c6171e2610b7ca7071264c472d Mon Sep 17 00:00:00 2001 From: Niko Tyni <> Date: Thu, 18 Sep 2014 00:00:29 +0300 Subject: [PATCH] Fix a warning about an uninitialized value --- lib/XML/ | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/XML/ b/lib/XML/ index e1cca02..8e253d0 100644 --- a/lib/XML/ +++ b/lib/XML/ @@ -52,7 +52,7 @@ sub import { my @opt = @_; no strict 'refs'; - @opt = keys %NS if $opt[0] eq ':all'; + @opt = keys %NS if @opt and $opt[0] eq ':all'; for my $exp (@opt) { die "No namespace available for key $exp" unless exists $NS{$exp}; __PACKAGE__->uri($exp); -- 2.1.0

This service is sponsored and maintained by Best Practical Solutions and runs on infrastructure.

Please report any issues with to