X-Git-Url: http://git.jankratochvil.net/?p=MyWeb.git;a=blobdiff_plain;f=Hash%2FPush.pm;h=fd5668f25d6661d278c70a926be9cbb98af077bb;hp=4e01cba53289ec87922ca6ae034d1d88c9cfaecd;hb=67b0e9730c654e367001f7a085fd6006382e22e2;hpb=aaa499f21bc074a0f4508963412ea387a811e3e7

diff --git a/Hash/Push.pm b/Hash/Push.pm
index 4e01cba..fd5668f 100644
--- 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;