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	vip-ire	1.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 ) {