#
# Dump_vconfig
#
# Display the contents of the VConfig hashes.
#
# Arguments:
#
# Returns: noerror on success otherwise error
#
sub Dump_vconfig
{
   $Data::Dumper::Indent = 3;
   foreach my $Section (keys(%VConfig))
      {
      print("Section\[$Section\]\n");
      foreach my $Array ($VConfig{$Section})
         {
         foreach my $Hash (@$Array)
            {
            foreach my $Key (keys(%$Hash))
               {
               #
               # This is the line that generates the Not a Hash reference error
               # |   |   |   |   |   |   |   |   |   |
               # V   V   V   V   V   V   V   V   V   V
               print("Key:\[$Key\]\[$Hash->{$Key}\]\n");
               }
            }
         }
      }
   return(noerror);
}