--- perl.prov.orig	Wed May 23 12:32:10 2001
+++ perl.prov	Wed May 23 12:39:44 2001
@@ -242,7 +242,8 @@
   local $SIG{__WARN__} = sub { };
 
   my $safe = new Safe;
-  $safe->permit_only(qw(:base_core :base_mem :base_loop :base_orig entereval));
+  $safe->permit_only(qw(:base_core :base_mem :base_orig entereval
+                        grepstart grepwhile mapstart mapwhile));
   my $version = $safe->reval("$line; \$VERSION;");
 
   return undef if $@ || length($version) == 0;