Change 18263: Re: [perl #18888] $Exporter::Verbose=1 does not work for testing, $Heavy::Verbose is not setting the value to $Exporter::Verbose

[Rafael Garcia-Suarez]

Change 18263 by rgs@rgs-home on 2002/12/08 21:56:13

        Subject: Re: [perl #18888] $Exporter::Verbose=1 does not work for testing, 
$Heavy::Verbose is not setting the value to $Exporter::Verbose
        From: Slaven Rezic <[EMAIL PROTECTED]>
        Date: 08 Dec 2002 01:31:45 +0100
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

.... //depot/perl/lib/Exporter/Heavy.pm#21 edit

Differences ...

==== //depot/perl/lib/Exporter/Heavy.pm#21 (text) ====
Index: perl/lib/Exporter/Heavy.pm
--- perl/lib/Exporter/Heavy.pm#20~17988~        Thu Oct 10 03:45:19 2002
+++ perl/lib/Exporter/Heavy.pm  Sun Dec  8 13:56:13 2002
@@ -6,7 +6,6 @@
 # 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 @@
                }
 
                warn "Import ".($remove ? "del":"add").": @names "
-                   if $Verbose;
+                   if $Exporter::Verbose;
 
                if ($remove) {
                   foreach $sym (@names) { delete $imports{$sym} } 
@@ -169,7 +168,7 @@
            # 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 @@
     }
 
     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
End of Patch.