perl-Object-Persistence/sme10/Object-Persistence-0.92.patch.forceDumpperl

diff -Nur -x '*.orig' -x '*.rej' Object-Persistence-0.92/lib/Persistence/Object/Simple.pm mezzanine_patched_Object-Persistence-0.92/lib/Persistence/Object/Simple.pm
--- Object-Persistence-0.92/lib/Persistence/Object/Simple.pm    Wed Sep 13 13:33:09 2006
+++ mezzanine_patched_Object-Persistence-0.92/lib/Persistence/Object/Simple.pm  Wed Sep 13 13:31:50 2006
@@ -119,8 +119,7 @@
         }
     } 
 
-    print { $locked_fh ? $locked_fh : $fh } 
-       defined &Data::Dumper::Dumpxs ? $d->Dumpxs() : $d->Dump(); 
+    print { $locked_fh ? $locked_fh : $fh } $d->Dumpperl();
     close $fh if $fh; 
 
     if ( ref $self ) { 
1	diff -Nur -x '.orig' -x '.rej' Object-Persistence-0.92/lib/Persistence/Object/Simple.pm mezzanine_patched_Object-Persistence-0.92/lib/Persistence/Object/Simple.pm
2	--- Object-Persistence-0.92/lib/Persistence/Object/Simple.pm Wed Sep 13 13:33:09 2006
3	+++ mezzanine_patched_Object-Persistence-0.92/lib/Persistence/Object/Simple.pm Wed Sep 13 13:31:50 2006
4	@@ -119,8 +119,7 @@
5	}
6	}
7
8	- print { $locked_fh ? $locked_fh : $fh }
9	- defined &Data::Dumper::Dumpxs ? $d->Dumpxs() : $d->Dump();
10	+ print { $locked_fh ? $locked_fh : $fh } $d->Dumpperl();
11	close $fh if $fh;
12
13	if ( ref $self ) {