Parent Directory
| 
Revision Log
| 
Revision Graph
Import on branch sme7 of package perl-Object-Persistence-0.92-4.el4.sme.src.rpm
| 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 |
| admin@koozali.org | ViewVC Help |
| Powered by ViewVC 1.2.1 |  |