bug fixes

diff --git a/install/create_setup_windows.pl b/install/create_setup_windows.pl
index 0aa3446..3e046ae 100644 (file)
--- a/install/create_setup_windows.pl
+++ b/install/create_setup_windows.pl
@@ -16,7 +16,7 @@ my $setup = "";
 chdir "C:\\Users\\ksaff\\Workspace\\creorga";
 my $strtags = `"C:\\Program Files\\Git\\bin\\git.exe" for-each-ref --sort=-creatordate --format="%(refname)" refs/tags`;
 
-my @modes = ("director","staff","localmanger");
+my @modes = ("director","staff","localmanager");
 print "Select Mode:\n";
 for (my $m=0;$m<scalar(@modes);$m++){
        print $m.": ".$modes[$m]."\n";
@@ -85,7 +85,7 @@ if ($setup eq "director"){
     print "unlink $a\n";
     unlink($a);
   }
-  my @unused_files = File::Find::Rule->file()
+  @unused_files = File::Find::Rule->file()
                                   ->name( qr/.+_free.*/  )
                                   ->in("C:\\Users\\ksaff\\Release\\tag\\app_v3");
   foreach my $a (@unused_files){
@@ -107,7 +107,7 @@ if ($setup eq "director"){
     print "unlink $a\n";
     unlink($a);
   }
-  my @unused_files = File::Find::Rule->file()
+  @unused_files = File::Find::Rule->file()
                                   ->name( qr/.+_free.*/  )
                                   ->in("C:\\Users\\ksaff\\Release\\tag\\app_v3");
   foreach my $a (@unused_files){