ChangeLogTag: Fri Jul 8 11:47:37 2005 Chad Elliott <elliott_c@ociweb.com>

2 files changed, 15 insertions, 3 deletions

diff --git a/ChangeLog b/ChangeLog
index 7bc10a4a..10dea21d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+Fri Jul  8 11:47:37 2005  Chad Elliott  <elliott_c@ociweb.com>
+
+        * modules/ProjectCreator.pm:
+
+          Modified code using a hash reference within a hash reference to
+          work correctly with Perl 5.6.1.
+
 Thu Jul  7 14:05:44 2005  Chad Elliott  <elliott_c@ociweb.com>
 
         * modules/MakeProjectBase.pm:
diff --git a/modules/ProjectCreator.pm b/modules/ProjectCreator.pm
index 5d7ad3bc..0014571e 100644
--- a/modules/ProjectCreator.pm
+++ b/modules/ProjectCreator.pm
@@ -2465,9 +2465,14 @@ sub generate_default_components {
                 ## files that are added are put at the front of the list.
                 my($newgroup) = undef;
                 my(@input) = ();
-                foreach my $name (keys %{$self->{$gentype}}) {
-                  foreach my $key (keys %{$self->{$gentype}->{$name}}) {
-                    push(@input, @{$self->{$gentype}->{$name}->{$key}});
+
+                ## If I call keys %{$self->{$gentype}} using perl 5.6.1
+                ## it returns nothing.  I have to put it in an
+                ## intermediate variable to ensure that I get the keys.
+                my($names) = $self->{$gentype};
+                foreach my $name (keys %$names) {
+                  foreach my $key (keys %{$$names{$name}}) {
+                    push(@input, @{$$names{$name}->{$key}});
                     if ($key ne $defgroup) {
                       $newgroup = $key;
                     }