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

diff --git a/configure.ac b/configure.ac
index d129551..7821e25 100644 (file)
--- 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 (file)
--- 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 ($$)