You are right! Here is a patch:
--- /usr/local/lib/perl5/5.00503/Data/Dumper.pm Fri May 28 18:34:02 19
+99
+++ Dumper.pm Fri Sep 8 19:55:37 2000
@@ -204,7 +204,9 @@
# and recurse, of course.
#
sub _dump {
- my($s, $val, $name) = @_;
+ my $s = shift;
+ my $val = shift;
+ my $name = shift;
my($sname);
my($out, $realpack, $realtype, $type, $ipad, $id, $blesspad);
In Perl 5.6.0 the code was not patched, instead they made
this line work properly. Does anyone know the exact bug
that is being tripped across here? |