File tree Expand file tree Collapse file tree 2 files changed +4
-0
lines changed Expand file tree Collapse file tree 2 files changed +4
-0
lines changed Original file line number Diff line number Diff line change 11Revision history for HTTP-Message
22
3+ - fix an undefined value warning in HTTP::Headers::as_string
4+
356.10 2015-07-19
46
57 - fix uses of qr/.../m in tests that do not work in 5.8.x
Original file line number Diff line number Diff line change @@ -263,6 +263,7 @@ sub as_string
263263 my $vals = $self -> {$key };
264264 if ( ref ($vals ) eq ' ARRAY' ) {
265265 for my $val (@$vals ) {
266+ $val = ' ' if not defined $val ;
266267 my $field = $standard_case {$key } || $self -> {' ::std_case' }{$key } || $key ;
267268 $field =~ s / ^:// ;
268269 if ( index ($val , " \n " ) >= 0 ) {
@@ -272,6 +273,7 @@ sub as_string
272273 }
273274 }
274275 else {
276+ $vals = ' ' if not defined $vals ;
275277 my $field = $standard_case {$key } || $self -> {' ::std_case' }{$key } || $key ;
276278 $field =~ s / ^:// ;
277279 if ( index ($vals , " \n " ) >= 0 ) {
You can’t perform that action at this time.
0 commit comments