| Subject: | decode_xml looks in $_[1], probably should be looking in $_[0] |
Net/Trackback/Data.pm line 48:
$self->$1( decode_xml($2) );
Net/Trackback.pm line 27:
sub decode_xml {
return unless $_[1];
(my $str = $_[1]) =~ s!($RE_D)!$Map_Decode{$1}!g;
$str;
}
decode_xml is looking for $_[1], but when called, only one argument is passed (i.e. in $_[0])