summaryrefslogtreecommitdiff
path: root/lib/Exporter
diff options
context:
space:
mode:
authorSlaven Rezic <slaven@rezic.de>2002-12-08 02:31:45 +0100
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2002-12-08 21:56:13 +0000
commite336476d0b01e142c1024f208616adee0159940b (patch)
tree922a627becf4c165fae44c423f5e7c6d91c232fc /lib/Exporter
parent2b872ccad44e83808aafa1913f65a140f4c316a7 (diff)
downloadperl-e336476d0b01e142c1024f208616adee0159940b.tar.gz
Re: [perl #18888] $Exporter::Verbose=1 does not work for testing, $Heavy::Verbose is not setting the value to $Exporter::Verbose
Message-ID: <874r9pmjv2.fsf@vran.herceg.de> p4raw-id: //depot/perl@18263
Diffstat (limited to 'lib/Exporter')
-rw-r--r--lib/Exporter/Heavy.pm7
1 files changed, 3 insertions, 4 deletions
diff --git a/lib/Exporter/Heavy.pm b/lib/Exporter/Heavy.pm
index 53341a2c1a..232238686d 100644
--- a/lib/Exporter/Heavy.pm
+++ b/lib/Exporter/Heavy.pm
@@ -6,7 +6,6 @@ no strict 'refs';
# On one line so MakeMaker will see it.
require Exporter; our $VERSION = $Exporter::VERSION;
$Carp::Internal{"Exporter::Heavy"} = 1;
-our $Verbose;
=head1 NAME
@@ -103,7 +102,7 @@ sub heavy_export {
}
warn "Import ".($remove ? "del":"add").": @names "
- if $Verbose;
+ if $Exporter::Verbose;
if ($remove) {
foreach $sym (@names) { delete $imports{$sym} }
@@ -169,7 +168,7 @@ sub heavy_export {
# barewords twice... both with and without a leading &.
# (Technique could be applied to $export_cache at cost of memory)
my @expanded = map { /^\w/ ? ($_, '&'.$_) : $_ } @$fail;
- warn "${pkg}::EXPORT_FAIL cached: @expanded" if $Verbose;
+ warn "${pkg}::EXPORT_FAIL cached: @expanded" if $Exporter::Verbose;
@{$fail_cache}{@expanded} = (1) x @expanded;
}
my @failed;
@@ -189,7 +188,7 @@ sub heavy_export {
}
warn "Importing into $callpkg from $pkg: ",
- join(", ",sort @imports) if $Verbose;
+ join(", ",sort @imports) if $Exporter::Verbose;
foreach $sym (@imports) {
# shortcut for the common case of no type character