--- PDL-2.4.2/IO/Dumper.pm.fix_ia64_sdump	2004-02-04 18:10:53.000000000 -0500
+++ PDL-2.4.2/IO/Dumper.pm	2006-03-09 16:06:20.000000000 -0500
@@ -151,7 +151,7 @@
   my($s) = Data::Dumper->Dump([@_]);
   my(%pdls);
 # Find the bless(...,'PDL') lines
-  while($s =~ s/bless\( do\{\\\(my \$o \= (\d+)\)\}\, \'PDL\' \)/\$PDL_$1/) {
+  while($s =~ s/bless\( do\{\\\(my \$o \= \'?(\d+)\'?\)\}\, \'PDL\' \)/\$PDL_$1/) {
     $pdls{$1}++;
   }