[perl #24120] Tie::Hash documentation has broken code

From: "Benjamin J. Tilly" (via RT) <perlbug-followup@perl.org>
Message-Id: <rt-24120-65664.15.9776865968429@rt.perl.org>
(Applied without $VERSION update.)

p4raw-id: //depot/perl@21404

diff --git a/lib/Tie/Hash.pm b/lib/Tie/Hash.pm
index 2820069..397272b 100644 (file)
--- a/lib/Tie/Hash.pm
+++ b/lib/Tie/Hash.pm
@@ -136,12 +136,13 @@ element being a hash reference, and the remaining methods should operate on the
 hash C<< %{ $_[0]->[0] } >>:
 
   package ReportHash;
-  our @ISA = 'Tie::StdHash';
+  our @ISA = 'Tie::ExtraHash';
 
   sub TIEHASH  {
-    my $storage = bless {}, shift;
+    my $class = shift;
+    my $storage = bless [{}, @_], $class;
     warn "New ReportHash created, stored in $storage.\n";
-    [$storage, @_]
+    $storage;
   }
   sub STORE    {
     warn "Storing data with key $_[1] at $_[0].\n";