Support downloads-only non-validating tests.

[MyWeb.git] / Hash / Sub.pm

diff --git a/Hash/Sub.pm b/Hash/Sub.pm
index 9fa5fd7..daadf2a 100644 (file)
--- a/Hash/Sub.pm
+++ b/Hash/Sub.pm
@@ -21,8 +21,9 @@ our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
 our $CVS_ID=q$Id$;
 use strict;
 use warnings;
-require Tie::Hash;     # for Tie::StdHash
-our @ISA=qw(Tie::StdHash);
+use My::Web;   # for &Wrequire
+Wrequire 'My::Hash';
+our @ISA=qw(My::Hash);
 use Carp qw(cluck confess);
 
 
@@ -30,7 +31,7 @@ sub FETCH($$)
 {
 my($this,$key)=@_;
 
-       my $val=$this->SUPER::FETCH($key);
+       my $val=$this->pass("FETCH",$key);
        return $val if $key=~/_sub$/;   # force
        return $val if !defined $val;   # 1-item array is intentional.
        return $val if "CODE" ne ref $val;