inline AUTOLOADed constants via Exporter.pm

Message-ID: <Pine.LNX.4.10.10006230009400.322-100000@mojo.covalent.net>

p4raw-id: //depot/cfgperl@6251

diff --git a/lib/Exporter.pm b/lib/Exporter.pm
index 585109e..95076f8 100644 (file)
--- a/lib/Exporter.pm
+++ b/lib/Exporter.pm
@@ -42,6 +42,12 @@ sub import {
       $exports{$sym} = 1;
     }
   }
+  for (@_) {
+      #need to match first to avoid "Modification of a read-only value attempted"
+      if (/^\+/ and s/^\+//) {
+          (\&{"$pkg\::$_"})->(); #try AUTOLOAD now so calls are inlined
+      }
+  }
   if ($Verbose or $Debug 
       or grep {/\W/ or $args and not exists $exports{$_}
               or @fail and $_ eq $fail[0]