| Subject: | lc(undef) reports warning in blead |
Change 33088 in blead causes lc/uc to report warnings if called with
'undef'. This change causes URI/mailto.pm to produce warnings as is
seen below. The attached patch fixes this.
t/mailto...........Use of uninitialized value within @new in lc at
/var/perl/cpan/build/URI-1.35/blib/lib/URI/mailto.pm line 17.
Use of uninitialized value within @new in lc at
/var/perl/cpan/build/URI-1.35/blib/lib/URI/mailto.pm line 54.
Use of uninitialized value within @new in lc at
/var/perl/cpan/build/URI-1.35/blib/lib/URI/mailto.pm line 17.
Use of uninitialized value within @new in lc at
/var/perl/cpan/build/URI-1.35/blib/lib/URI/mailto.pm line 54.
Use of uninitialized value within @new in lc at
/var/perl/cpan/build/URI-1.35/blib/lib/URI/mailto.pm line 17.
Use of uninitialized value within @new in lc at
/var/perl/cpan/build/URI-1.35/blib/lib/URI/mailto.pm line 54.
ok
| Subject: | uri.patch |
--- URI/mailto.pm.orig 2008-01-28 13:12:52.591889200 -0500
+++ URI/mailto.pm 2008-01-28 13:11:49.489659400 -0500
@@ -14,7 +14,7 @@
my @new = @old;
# get rid of any other to: fields
for (my $i = 0; $i < @new; $i += 2) {
- if (lc($new[$i]) eq "to") {
+ if (lc($new[$i] || '') eq "to") {
splice(@new, $i, 2);
redo;
}
@@ -51,7 +51,7 @@
# strip out any "to" fields
my @to;
for (my $i=0; $i < @new; $i += 2) {
- if (lc($new[$i]) eq "to") {
+ if (lc($new[$i] || '') eq "to") {
push(@to, (splice(@new, $i, 2))[1]); # remove header
redo;
}