--- /usr/local/lib/perl5/5.00503/Data/Dumper.pm Fri May 28 18:34:02 1999
+++ 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);