Remove :base_io from the set of default "safe" opcodes.

[p5sagit/p5-mst-13.2.git] / ext / Safe / t / safe2.t

diff --git a/ext/Safe/t/safe2.t b/ext/Safe/t/safe2.t
index 3ea19ed..d0239d1 100755 (executable)
--- a/ext/Safe/t/safe2.t
+++ b/ext/Safe/t/safe2.t
@@ -39,6 +39,8 @@ $cpt = new Safe or die;
 
 $cpt = new Safe "Root";
 
+$cpt->permit(qw(:base_io));
+
 $cpt->reval(q{ system("echo not ok 1"); });
 if ($@ =~ /^'?system'? trapped by operation mask/) {
     print "ok 1\n";