perfsonar development work

Author: loukik
Date: 2007-05-25 10:46:29 -0400 (Fri, 25 May 2007)
New Revision: 2432

Modified:
   trunk/perfsonar-bundle/install.pl
Log:
variable declarations were causing problems (I am very new to perl :) )

Modified: trunk/perfsonar-bundle/install.pl
===================================================================
--- trunk/perfsonar-bundle/install.pl   2007-05-25 13:11:07 UTC (rev 2431)
+++ trunk/perfsonar-bundle/install.pl   2007-05-25 14:46:29 UTC (rev 2432)
@@ -601,10 +601,10 @@
         print "\nReturning to the last menu...\n";
         return 1;
     }
-    @arr=split /\.gz/, $file;
-       $file-unzipped = $arr[0];
+    my @arr=split /\.gz/, $file;
+       my $file_unzipped = $arr[0];
     
-       if (system("tar -xvf $file-unzipped -C $installDir") != 0){
+       if (system("tar -xvf $file_unzipped -C $installDir") != 0){
         print "\nAn error occurred while trying to extract the installions 
files.\n";
         print "\nReturning to the last menu...\n";
         return 1;