Fix test to pass en 5.6.2 (unpack is needed by version.pm there)
Rafael Garcia-Suarez [Mon, 11 Feb 2008 11:10:09 +0000 (11:10 +0000)]
p4raw-id: //depot/perl@33278

ext/Safe/t/safeload.t

index db8f1c5..b15c290 100644 (file)
@@ -25,6 +25,6 @@ use Safe;
 plan(tests => 1);
 
 my $c = new Safe;
-$c->permit(qw(require caller entereval));
+$c->permit(qw(require caller entereval unpack));
 my $r = $c->reval(q{ use version; 1 });
 ok( defined $r, "Can load version.pm in a Safe compartment" ) or diag $@;