| Subject: | Message "uninitialized value in concatenation..." with use strict |
If i use "Net::UCP" with "use strict", i get the message ...
Use of uninitialized value in concatenation (.) or string at
/usr/local/share/perl/5.10.0/Net/UCP.pm line 1350, <STDIN> line 1.
My own fix for this problem, i have add as attachment to this request.
| Subject: | Net_UCP_uninitialized_fix.patch |
--- Net-UCP-0.40/lib/Net/UCP.pm 2009-05-29 15:28:33.000000000 +0200
+++ Net-UCP-0.41/lib/Net/UCP.pm 2010-04-06 16:50:44.000000000 +0200
@@ -409,6 +383,8 @@
$self->{SRC_HOST} = $args{SRC_HOST};
$self->{SRC_PORT} = $args{SRC_PORT};
+ # itguru fix
+ $self->{SHORT_CODE} = defined($args{SHORT_CODE})&&length($args{SHORT_CODE})?$args{SHORT_CODE}:undef;
$self->{SOCK} = undef;