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 ) {