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 $@;