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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Object-Persistence-0.92.patch.2002052300 Normal file
View File

@ -0,0 +1,12 @@
diff -ur Object-Persistence-0.92-1/lib/Persistence/Object/Simple.pm Object-Persistence-0.92-2/lib/Persistence/Object/Simple.pm
--- Object-Persistence-0.92-1/lib/Persistence/Object/Simple.pm Wed Jan 30 02:47:14 2002
+++ Object-Persistence-0.92-2/lib/Persistence/Object/Simple.pm Thu May 23 14:03:48 2002
@@ -146,7 +146,7 @@
close C;
# untaint the input meaningfully
- if ($objectfile =~ /^(\$VAR1 = bless[^;]+;)$/s) {
+ if ($objectfile =~ /^(\$VAR1 = bless.+)$/s) {
my $object = eval "$1";
croak "$args{ __Fn } is corrupt. Object loading aborted." if $@;

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 {

13
Object-Persistence-0.92.patch.forceDumpperl Normal file
View File

@ -0,0 +1,13 @@
diff -Nur -x '*.orig' -x '*.rej' Object-Persistence-0.92/lib/Persistence/Object/Simple.pm mezzanine_patched_Object-Persistence-0.92/lib/Persistence/Object/Simple.pm
--- Object-Persistence-0.92/lib/Persistence/Object/Simple.pm Wed Sep 13 13:33:09 2006
+++ mezzanine_patched_Object-Persistence-0.92/lib/Persistence/Object/Simple.pm Wed Sep 13 13:31:50 2006
@@ -119,8 +119,7 @@
}
}
- print { $locked_fh ? $locked_fh : $fh }
- defined &Data::Dumper::Dumpxs ? $d->Dumpxs() : $d->Dump();
+ print { $locked_fh ? $locked_fh : $fh } $d->Dumpperl();
close $fh if $fh;
if ( ref $self ) {