This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove code commented out since July 1996.
[perl5.git] / dist / Safe / t / safe2.t
index b55b4a9..fc519ff 100644 (file)
@@ -143,16 +143,4 @@ if ($@) {
 }
 close(NOSUCH);
 
-#my $rdo_file = "tmp_rdo.tpl";
-#if (open X,">$rdo_file") {
-#    print X "999\n";
-#    close X;
-#    $cpt->permit_only('const', 'leaveeval');
-#    $cpt->rdo($rdo_file) == 999 ? "ok $t\n" : "not ok $t\n"; $t++;
-#    unlink $rdo_file;
-#}
-#else {
-#    print "# test $t skipped, can't open file: $!\nok $t\n"; $t++;
-#}
-
 done_testing();