diff options
| author | Slaven Rezic <slaven@rezic.de> | 2002-12-08 02:31:45 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-12-08 21:56:13 +0000 |
| commit | e336476d0b01e142c1024f208616adee0159940b (patch) | |
| tree | 922a627becf4c165fae44c423f5e7c6d91c232fc | |
| parent | 2b872ccad44e83808aafa1913f65a140f4c316a7 (diff) | |
| download | perl-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
| -rw-r--r-- | lib/Exporter/Heavy.pm | 7 |
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 |