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