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