Storable and code serialization: documentation
[p5sagit/p5-mst-13.2.git] / ext / Storable / t / code.t
index f24fe77..3a6d1a4 100644 (file)
@@ -147,7 +147,6 @@ ok(prototype($thawed->[4]), prototype($obj[0]->[4]));
 ######################################################################
 # Security with
 #   $Storable::Eval
-#   $Storable::Safe
 #   $Storable::Deparse
 
 {
@@ -214,8 +213,8 @@ ok(prototype($thawed->[4]), prototype($obj[0]->[4]));
        $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];