r3231 - trunk/src/host/devirginator

[werner at sita.openmoko.org]

Author: werner
Date: 2007-10-21 11:59:09 +0200 (Sun, 21 Oct 2007)
New Revision: 3231

Modified:
   trunk/src/host/devirginator/envedit.pl
Log:
envedit.pl (set): return 1 on success
envedit.pl: invoke "set" with $ARGV[0], not $_



Modified: trunk/src/host/devirginator/envedit.pl
===================================================================
--- trunk/src/host/devirginator/envedit.pl	2007-10-20 01:30:20 UTC (rev 3230)
+++ trunk/src/host/devirginator/envedit.pl	2007-10-21 09:59:09 UTC (rev 3231)
@@ -113,6 +113,7 @@
     print STDERR
       "warning: variable name \"$var\" contains invalid characters\n"
       unless $var =~ /^\w+$/;
+    return 1;
 }
 
 
@@ -185,7 +186,7 @@
 	close FILE;
 	&set_err($line) if defined $line;
     }
-    elsif (&set($_)) {
+    elsif (&set($ARGV[0])) {
 	shift(@ARGV);
     }
     else {