From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 24 Dec 2005 15:09:28 +0000 (+0000)
Subject: Using a hash reference rather than a hash can save a hash copy.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b35226bb9fb75776ec63888a35027b665a5af9dc;p=p5sagit%2Fp5-mst-13.2.git

Using a hash reference rather than a hash can save a hash copy.

p4raw-id: //depot/perl@26483
---

diff --git a/lib/constant.pm b/lib/constant.pm
index 159c299..19edca0 100644
--- a/lib/constant.pm
+++ b/lib/constant.pm
@@ -5,7 +5,7 @@ use 5.006_00;
 use warnings::register;
 
 our($VERSION, %declared);
-$VERSION = '1.05';
+$VERSION = '1.06';
 
 #=======================================================================
 
@@ -28,7 +28,7 @@ my %forbidden = (%keywords, %forced_into_main);
 sub import {
     my $class = shift;
     return unless @_;			# Ignore 'use constant;'
-    my %constants = ();
+    my $constants;
     my $multiple  = ref $_[0];
 
     if ( $multiple ) {
@@ -36,12 +36,12 @@ sub import {
 	    require Carp;
 	    Carp::croak("Invalid reference type '".ref(shift)."' not 'HASH'");
 	}
-	%constants = %{+shift};
+	$constants = shift;
     } else {
-	$constants{+shift} = undef;
+	$constants->{+shift} = undef;
     }
 
-    foreach my $name ( keys %constants ) {
+    foreach my $name ( keys %$constants ) {
 	unless (defined $name) {
 	    require Carp;
 	    Carp::croak("Can't use undef as constant name");
@@ -95,7 +95,7 @@ sub import {
 	    my $full_name = "${pkg}::$name";
 	    $declared{$full_name}++;
 	    if ($multiple) {
-		my $scalar = $constants{$name};
+		my $scalar = $constants->{$name};
 		*$full_name = sub () { $scalar };
 	    } else {
 		if (@_ == 1) {