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