smeserver/perl-Object-Persistence
6
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add in patch files

Browse Source
This commit is contained in:
Brian Read
2023-07-15 11:53:27 +01:00
parent cdf334b1cd
commit f11e5452e9
3 changed files with 36 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Object-Persistence-0.92.patch.2004092700 Normal file
View File

@@ -0,0 +1,11 @@
--- 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 {