p4raw-id: //depot/perl@33278
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 $@;