From: short <>
Date: Sat, 17 Sep 2005 01:15:21 +0000 (+0000)
Subject: My::Hash::* reimplementation for separate feature add-on packages (cleanup).
X-Git-Url: http://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=commitdiff_plain;h=41a02919848beeb0d53865085327a17266672fcc

My::Hash::* reimplementation for separate feature add-on packages (cleanup).
---

diff --git a/configure.ac b/configure.ac
index d129551..7821e25 100644
--- a/configure.ac
+++ b/configure.ac
@@ -44,7 +44,6 @@ Makefile
 ./macros/Makefile
 ./My/Makefile
 ./My/Hash/Makefile
-./My/Hash/Sub/Makefile
 ./resume/Makefile
 ./etmms/Makefile
 ./project/Makefile
diff --git a/project/Lib.pm b/project/Lib.pm
index 348cd38..c89683a 100644
--- a/project/Lib.pm
+++ b/project/Lib.pm
@@ -190,13 +190,11 @@ sub project_arrayref_to_hashref($$)
 {
 my($self,$arrayref)=@_;
 
-	Wuse 'My::Hash::Sub::Readonly';
-	my $r={};
-	tie %$r,"My::Hash::Sub::Readonly",(
-			@$arrayref,
-			"keys_array"=>[ hashlikearray_get_keys(@$arrayref) ],
-			);
-	return $r;
+	Wrequire 'My::Hash';
+	return My::Hash->new({
+		@$arrayref,
+		"keys_array"=>[ hashlikearray_get_keys(@$arrayref) ],
+		},"My::Hash::Sub","My::Hash::Readonly");
 }
 
 sub title ($$)