+&FETCH: Normalize the /_push$/ values to always: "ARRAY" eq ref($val)

diff --git a/Hash/Push.pm b/Hash/Push.pm
index 4e01cba..fd5668f 100644 (file)
--- a/Hash/Push.pm
+++ b/Hash/Push.pm
@@ -38,4 +38,15 @@ my($this,$key,$value)=@_;
        return $this->pass("STORE",$key,[@$val_orig,$value]);
 }
 
+sub FETCH($$)
+{
+my($this,$key)=@_;
+
+       my $val=$this->pass("FETCH",$key);
+       return $val if $key!~/_push$/;
+       $val=[] if !defined $val;
+       $val=[$val] if "ARRAY" ne ref($val);
+       return $val;
+}
+
 1;