Skip Menu |
 

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

Report information
The Basics
Id: 13756
Status: new
Priority: 0/
Queue: XML-ASCX12

People
Owner: Nobody in particular
Requestors: roderick [...] ibcinc.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: 0.03
Fixed in: (no value)

Attachments


Subject: uninit warning in XMLENC()
Download (untitled) / with headers
text/plain 271b
The /e flags on the substituions in XMLENC() aren't necessary, and the 2nd and 3rd cause warnings. $ perl -Ilib -mXML::ASCX12 -lwe 'print XML::ASCX12::XMLENC "a\x01b"' | cat -tev Use of uninitialized value in substitution iterator at lib/XML/ASCX12.pm line 328. ab$ $ _
Download uninit.diff
text/x-diff 695b
--- lib/XML/ASCX12.pm.~1~ 2004-09-28 10:59:34.000000000 -0400 +++ lib/XML/ASCX12.pm 2005-07-18 11:45:14.000000000 -0400 @@ -323,9 +323,9 @@ my $str = $_[0]; if ($str) { - $str =~ s/([&<>"])/$_XMLREP{$1}/ge; # relace any &<>" characters - $str =~ s/[\x80-\xff]//ge; # get rid on any non-ASCII characters - $str =~ s/[\x01-\x1f]//ge; # get rid on any non-ASCII characters + $str =~ s/([&<>"])/$_XMLREP{$1}/g; # relace any &<>" characters + $str =~ s/[\x80-\xff]//g; # get rid on any non-ASCII characters + $str =~ s/[\x01-\x1f]//g; # get rid on any non-ASCII characters } return $str; }


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

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.