perl-Object-Persistence/Object-Persistence-0.92.patch.2004092700
2023-07-15 11:53:27 +01:00

12 lines
600 B
Plaintext

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