13 lines
594 B
Plaintext
13 lines
594 B
Plaintext
|
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 $@;
|
||
|
|
|