perl-Object-Persistence/sme8/Object-Persistence-0.92.patch.2002052300

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 $@; 
 
1	slords	1.1	diff -ur Object-Persistence-0.92-1/lib/Persistence/Object/Simple.pm Object-Persistence-0.92-2/lib/Persistence/Object/Simple.pm
2			--- Object-Persistence-0.92-1/lib/Persistence/Object/Simple.pm Wed Jan 30 02:47:14 2002
3			+++ Object-Persistence-0.92-2/lib/Persistence/Object/Simple.pm Thu May 23 14:03:48 2002
4			@@ -146,7 +146,7 @@
5			close C;
6
7			# untaint the input meaningfully
8			- if ($objectfile =~ /^(\$VAR1 = bless[^;]+;)$/s) {
9			+ if ($objectfile =~ /^(\$VAR1 = bless.+)$/s) {
10			my $object = eval "$1";
11			croak "$args{ __Fn } is corrupt. Object loading aborted." if $@;
12