From: short <>
Date: Wed, 21 Sep 2005 04:54:39 +0000 (+0000)
Subject: +&FETCH: Normalize the /_push$/ values to always: "ARRAY" eq ref($val)
X-Git-Url: http://git.jankratochvil.net/?p=MyWeb.git;a=commitdiff_plain;h=67b0e9730c654e367001f7a085fd6006382e22e2

+&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
--- 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;