Below error was generated during Perl v5.8.8 -> Perl v5.10.2 upgrade.
Error Message Below:
Can't use string ("7/16") as a HASH ref while "strict refs" in use at /usr/lib64/perl5/vendor_perl/XML/Bare.pm line 67.
sub xget {
my $hash = shift;
return map $_->{'value'}, @{%$hash}{@_};
}
Correct xget function for 5.10.2 :
sub xget {
my $hash = shift;
return map $_->{'value'}, @{$hash}{@_};
}
Disgard '%' to make it work on Perl 5.10.2