X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FTie%2FHash.pm;h=397272becec0646a855f879d4e441ac60a10dea6;hb=1db7d662ab3016c638481dc6ccd6dfc26c968f33;hp=282006984b99fcbf3c7bebbadf242fb108fa683c;hpb=194eaab5cca55296d59afbf5a12ff47445ad3b49;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Tie/Hash.pm b/lib/Tie/Hash.pm
index 2820069..397272b 100644
--- 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";