5.004_56: Patch to Tie::Hash and docs

[perl5.git] / lib / Tie / Hash.pm

diff --git a/lib/Tie/Hash.pm b/lib/Tie/Hash.pm
index 2117c54..89fd61d 100644 (file)
--- a/lib/Tie/Hash.pm
+++ b/lib/Tie/Hash.pm
@@ -110,7 +110,7 @@ sub new {
 
 sub TIEHASH {
     my $pkg = shift;
 
 sub TIEHASH {
     my $pkg = shift;

-    if (defined &{"{$pkg}::new"}) {
+    if (defined &{"${pkg}::new"}) {

        carp "WARNING: calling ${pkg}->new since ${pkg}->TIEHASH is missing"
            if $^W;
        $pkg->new(@_);
        carp "WARNING: calling ${pkg}->new since ${pkg}->TIEHASH is missing"
            if $^W;
        $pkg->new(@_);