perl-Object-Persistence/sme7/Object-Persistence-0.92.patch.2004092700

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