[devel] perl.prov update

Mikhail Zabaluev =?iso-8859-1?q?mhz_=CE=C1_alt-linux=2Eorg?=
Ср Май 23 13:33:54 MSD 2001


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

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

-- 
Stay tuned,
  MhZ                                     JID: mookid на jabber.org
___________
Do not handicap your children by making their lives easy.
		-- Robert Heinlein
----------- следующая часть -----------
--- 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;


Подробная информация о списке рассылки Devel