From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Tue, 27 Jul 1999 17:42:00 +0000 (-0400)
Subject: fix the perl -V breakage
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4365a96142729d7b3a9c9c8ae27b2ba9005938cf;p=p5sagit%2Fp5-mst-13.2.git

fix the perl -V breakage
To: Jarkko Hietaniemi <jhi@iki.fi>
Cc: "John L. Allen" <allen@grumman.com>, perl5-porters@perl.org,
       	gsar@activestate.com
Subject: Re: Follow up to: _58 on AIX 431
Message-ID: <19990727174200.A12775@monk.mps.ohio-state.edu>

p4raw-id: //depot/perl@3806
---

diff --git a/configpm b/configpm
index 66b51a4..8c53dbb 100755
--- a/configpm
+++ b/configpm
@@ -30,6 +30,7 @@ sub import {
   my $pkg = shift;
   @_ = @EXPORT unless @_;
   my @func = grep {$_ ne '%Config'} @_;
+  local $Exporter::ExportLevel = 1;
   Exporter::import('Config', @func) if @func;
   return if @func == @_;
   my $callpkg = caller(0);