]> git.pld-linux.org Git - packages/perl-XML-Stream.git/blob - perl-XML-Stream-warnings.patch
- small fixup for compare with undef data
[packages/perl-XML-Stream.git] / perl-XML-Stream-warnings.patch
1 diff -Nur XML-Stream-1.22.ori/lib/XML/Stream/Namespace.pm XML-Stream-1.22.mod/lib/XML/Stream/Namespace.pm
2 --- XML-Stream-1.22.ori/lib/XML/Stream/Namespace.pm     2005-01-22 11:27:35.000000000 +0100
3 +++ XML-Stream-1.22.mod/lib/XML/Stream/Namespace.pm     2005-01-22 11:28:05.000000000 +0100
4 @@ -162,6 +162,8 @@
5    my $self = shift;
6    my ($attrib) = @_;
7  
8 +  $attrib = '' unless $attrib;
9 +
10    return $self->{Attributes} if ($attrib eq "");
11    return $self->{Attributes}->{$attrib};
12  }
This page took 0.050702 seconds and 3 git commands to generate.