12 lines
600 B
Plaintext
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 {
|