Skip Menu |

This queue is for tickets about the Net-UCP CPAN distribution.

Report information
The Basics
Id: 34495
Status: resolved
Priority: 0/
Queue: Net-UCP
People
Owner: Nobody in particular
Requestors: MOBILEART [...] cpan.org
Cc:
AdminCc:
Bug Information
Severity: Normal
Broken in: 0.31
Fixed in: (no value)

History Show all quoted text
  Thu Mar 27 22:27:57 2008 MOBILEART [...] cpan.org - Ticket created
If $mess{mt} is not populated, there will be error: Argument "" isn't numeric in numeric eq (==) at /usr/perl5/site_perl/5.8.4/Net/UCP.pm line 1305. Current in line 1305 to 1307, the following is the orignal code: $mess{nmsg} = $ucp[24] if $mess{mt} == 2; $mess{amsg} = $self->{OBJ_EMI_COMMON}->ia5_decode($ucp[24]) if $mess{mt} == 3; $mess{tmsg} = $ucp[24] if $mess{mt} == 4; My suggestion for a bug fixes are as follow: $mess{nmsg} = $ucp[24] if ($mess{mt} && $mess{mt} == 2); $mess{amsg} = $self->{OBJ_EMI_COMMON}->ia5_decode($ucp[24]) if ($mess{mt} && $mess{mt} == 3); $mess{tmsg} = $ucp[24] if ($mess{mt} && $mess{mt} == 4); The following is my environment setting: bash-3.00# perl -v This is perl, v5.8.4 built for sun4-solaris-64int (with 28 registered patches, see perl -V for more detail) Copyright 1987-2004, Larry Wall Perl may be copied only under the terms of either the Artistic License or the GNU General Public License, which may be found in the Perl 5 source kit. Complete documentation for Perl, including FAQ lists, should be found on this system using `man perl' or `perldoc perl'. If you have access to the Internet, point your browser at http://www.perl.com/, the Perl Home Page. bash-3.00# uname -a SunOS testserver 5.10 Generic_118833-33 sun4u sparc SUNW,Sun-Fire-280R bash-3.00#
  Fri Mar 28 04:31:28 2008 nemux [...] cpan.org - Correspondence added
Subject: Solved
From: nemux [...] cpan.org
I released e new version of Net::UCP. Thanks, Marco. On Gio. 27 Mar. 2008 22:27:57, MOBILEART wrote: Show quoted text
> If $mess{mt} is not populated, there will be error: > > Argument "" isn't numeric in numeric eq (==) at > /usr/perl5/site_perl/5.8.4/Net/UCP.pm line 1305. > > Current in line 1305 to 1307, the following is the orignal code: > > $mess{nmsg} = $ucp[24] if $mess{mt} == 2; > $mess{amsg} = $self->{OBJ_EMI_COMMON}->ia5_decode($ucp[24]) if > $mess{mt} == 3; > $mess{tmsg} = $ucp[24] if $mess{mt} == 4; > > > My suggestion for a bug fixes are as follow: > > $mess{nmsg} = $ucp[24] if ($mess{mt} && $mess{mt} == 2); > $mess{amsg} = $self->{OBJ_EMI_COMMON}->ia5_decode($ucp[24]) if > ($mess{mt} && $mess{mt} == 3); > $mess{tmsg} = $ucp[24] if ($mess{mt} && $mess{mt} == 4); > > > > The following is my environment setting: > > > bash-3.00# perl -v > > This is perl, v5.8.4 built for sun4-solaris-64int > (with 28 registered patches, see perl -V for more detail) > > Copyright 1987-2004, Larry Wall > > Perl may be copied only under the terms of either the Artistic License > or the > GNU General Public License, which may be found in the Perl 5 source kit. > > Complete documentation for Perl, including FAQ lists, should be found on > this system using `man perl' or `perldoc perl'. If you have access to the > Internet, point your browser at http://www.perl.com/, the Perl Home Page. > > bash-3.00# uname -a > SunOS testserver 5.10 Generic_118833-33 sun4u sparc SUNW,Sun-Fire-280R > bash-3.00# > >
  Fri Mar 28 04:31:29 2008 The RT System itself - Status changed from 'new' to 'open'
  Fri Mar 28 04:32:14 2008 nemux [...] cpan.org - Status changed from 'open' to 'resolved'