make exists() work better on pseudo-hashes (reworked a patch suggested

[perl5.git] / configpm

diff --git a/configpm b/configpm
index 66b51a4..8c53dbb 100755 (executable)
--- 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);