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