--- Object-Persistence-0.92/lib/Persistence/Object/Simple.pm.orig	Mon Sep 27 11:57:12 2004
+++ Object-Persistence-0.92/lib/Persistence/Object/Simple.pm	Mon Sep 27 11:57:23 2004
@@ -111,7 +111,7 @@
         # guard against disallowed characters in filename (basically those 
         # which might mess up the open() call)
         if (($fn) = ($fn =~ /^([^<>|+]+)$/)) {
-            open C, ">$fn" || croak "Can't open $fn for writing."; 
+            open C, ">$fn" or croak "Can't open $fn for writing."; 
             eval { flock C, 2 }; undef $@;
             $fh = *C{ IO }; 
         } else {