The value from caller doesn't change, so my $pkg = caller;
authorNicholas Clark <nick@ccl4.org>
Sat, 24 Dec 2005 16:27:28 +0000 (16:27 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 24 Dec 2005 16:27:28 +0000 (16:27 +0000)
should be moved out of the loop.

p4raw-id: //depot/perl@26485

lib/constant.pm

index 19edca0..0a866aa 100644 (file)
@@ -30,6 +30,7 @@ sub import {
     return unless @_;                  # Ignore 'use constant;'
     my $constants;
     my $multiple  = ref $_[0];
+    my $pkg = caller;
 
     if ( $multiple ) {
        if (ref $_[0] ne 'HASH') {
@@ -46,7 +47,6 @@ sub import {
            require Carp;
            Carp::croak("Can't use undef as constant name");
        }
-       my $pkg = caller;
 
        # Normal constant name
        if ($name =~ /^_?[^\W_0-9]\w*\z/ and !$forbidden{$name}) {