From e866b74b8651a8d5e0458756533f958fc66fd305 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Wed, 20 Jul 2005 16:53:16 +0000 Subject: Remove :base_io from the set of default "safe" opcodes. This fixes bug [perl #36213] "Possible flaw in Safe.pm/Opcode.pm that allows access to any file" but introduces a backward compatibility issue. p4raw-id: //depot/perl@25204 --- ext/Safe/t/safe2.t | 2 ++ 1 file changed, 2 insertions(+) (limited to 'ext/Safe') diff --git a/ext/Safe/t/safe2.t b/ext/Safe/t/safe2.t index 3ea19eda4e..d0239d1bb7 100755 --- 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"; -- cgit v1.2.1