######################################################################
# Security with
# $Storable::Eval
-# $Storable::Safe
# $Storable::Deparse
{
$freezed = freeze $obj[0]->[$i];
$@ = "";
eval { $thawed = thaw $freezed };
- skip(q{ok($@, ""});
- skip(q{$thawed->(), $res});
+ ok($@, "");
+ ok($thawed->(), $res);
}
$freezed = freeze $obj[0]->[6];