Parent Directory | Revision Log | Revision Graph
Import perl-Object-Persistence in SME9 tree
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 |
admin@koozali.org | ViewVC Help |
Powered by ViewVC 1.2.1 |