[devel] perl.prov update

[devel] perl.prov update

[Mikhail Zabaluev]

[-- Attachment #1: Type: text/plain, Size: 339 bytes --]

Доброго времени суток.

Дебаты в рассылке "разбудили Герцена". Вот небольшое исправление в
скрипт поиска Provides для perl, сделанное в целях улучшения стабильности.

-- 
Stay tuned,
  MhZ                                     JID: mookid@jabber.org
___________
Do not handicap your children by making their lives easy.
		-- Robert Heinlein

[-- Attachment #2: perl.prov.diff --]
[-- Type: text/plain, Size: 480 bytes --]

--- 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;