From f11e5452e962444c440e0e0b0200d2316bd10f97 Mon Sep 17 00:00:00 2001
From: Brian Read <brianr@rockysmebuild.bjsystems.co.uk>
Date: Sat, 15 Jul 2023 11:53:27 +0100
Subject: [PATCH] Add in patch files

---
 Object-Persistence-0.92.patch.2002052300    | 12 ++++++++++++
 Object-Persistence-0.92.patch.2004092700    | 11 +++++++++++
 Object-Persistence-0.92.patch.forceDumpperl | 13 +++++++++++++
 3 files changed, 36 insertions(+)
 create mode 100644 Object-Persistence-0.92.patch.2002052300
 create mode 100644 Object-Persistence-0.92.patch.2004092700
 create mode 100644 Object-Persistence-0.92.patch.forceDumpperl

diff --git a/Object-Persistence-0.92.patch.2002052300 b/Object-Persistence-0.92.patch.2002052300
new file mode 100644
index 0000000..18264bc
--- /dev/null
+++ b/Object-Persistence-0.92.patch.2002052300
@@ -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 $@; 
+ 
diff --git a/Object-Persistence-0.92.patch.2004092700 b/Object-Persistence-0.92.patch.2004092700
new file mode 100644
index 0000000..7bf6ba0
--- /dev/null
+++ b/Object-Persistence-0.92.patch.2004092700
@@ -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 {
diff --git a/Object-Persistence-0.92.patch.forceDumpperl b/Object-Persistence-0.92.patch.forceDumpperl
new file mode 100644
index 0000000..bacc952
--- /dev/null
+++ b/Object-Persistence-0.92.patch.forceDumpperl
@@ -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 ) {