From mboxrd@z Thu Jan  1 00:00:00 1970
From: Mikhail Zabaluev <mhz@alt-linux.org>
To: devel@altlinux.ru
Message-ID: <20010523133354.A3805@localhost.localdomain>
Mail-Followup-To: Mikhail Zabaluev <mhz@alt-linux.org>,
	devel@altlinux.ru
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="x+6KMIRAuhnl3hBn"
Content-Disposition: inline
Content-Transfer-Encoding: 8bit
User-Agent: Mutt/1.2.5i
Subject: [devel] perl.prov update
Sender: devel-admin@linux.iplabs.ru
Errors-To: devel-admin@linux.iplabs.ru
X-BeenThere: devel@linux.iplabs.ru
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: devel@linux.iplabs.ru
List-Help: <mailto:devel-request@linux.iplabs.ru?subject=help>
List-Post: <mailto:devel@linux.iplabs.ru>
List-Subscribe: <http://www.logic.ru/mailman/listinfo/devel>,
	<mailto:devel-request@linux.iplabs.ru?subject=subscribe>
List-Id: IPLabs Linux Team Developers mailing list <devel.linux.iplabs.ru>
List-Unsubscribe: <http://www.logic.ru/mailman/listinfo/devel>,
	<mailto:devel-request@linux.iplabs.ru?subject=unsubscribe>
List-Archive: <http://www.logic.ru/pipermail/devel/>
X-Original-Date: Wed, 23 May 2001 13:33:54 +0400
Date: Wed, 23 May 2001 13:33:54 +0400
Archived-At: <http://lore.altlinux.org/devel/20010523133354.A3805@localhost.localdomain/>
List-Archive: <http://lore.altlinux.org/devel/>
List-Post: <mailto:devel@altlinux.org>


--x+6KMIRAuhnl3hBn
Content-Type: text/plain; charset=koi8-r
Content-Disposition: inline
Content-Transfer-Encoding: 8bit

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

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

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

--x+6KMIRAuhnl3hBn
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment; filename="perl.prov.diff"

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

--x+6KMIRAuhnl3hBn--
_______________________________________________
Devel mailing list
Devel@linux.iplabs.ru
http://www.logic.ru/mailman/listinfo/devel