EG install scripts: production branches
[sitka/sitka-tools.git] / deployment / access_pathmap.pl
index 58b21c3..33c3b4c 100755 (executable)
@@ -4,13 +4,13 @@ use warnings;
 use Config::Simple;
 use Getopt::Long;
 
-my ($help, $config_file, $component, $srcpath, $host); 
+my ($help, $config_file, $component, $srcpath); 
 
 GetOptions(
     'help'              => \$help,              # show help message and exit
     'config=s'          => \$config_file,       # INI file for path mappings
     'component=s'       => \$component,         # The component to grab the source paths for
-    'srcpath=s'         => \$srcpath,           # The source path to grap the destination path for
+    'srcpath=s'         => \$srcpath            # The source path to grap the destination path for
 );
 
 if ($help) {
@@ -55,7 +55,7 @@ if (!$component) {
         }
     }
 } elsif (!$srcpath) {
-    foreach my $key (keys $cfg->get_block($component)) {
+    foreach my $key (keys %{$cfg->get_block($component)}) {
         #again we use newlines because spaces can be used within directory names. I belive
         #it is possible to use a newline in a directory name, but someone would have to be
         #trying really hard to make things break if they started doing that with the Evergreen