svn commit: r255789 - user/des/tinderbox

[Dag-Erling Smørgrav]

Author: des
Date: Sun Sep 22 14:21:40 2013
New Revision: 255789
URL: http://svnweb.freebsd.org/changeset/base/255789

Log:
  Allow lower-case letters in environment variable names.

Modified:
  user/des/tinderbox/tinderbox.pl

Modified: user/des/tinderbox/tinderbox.pl
==============================================================================
--- user/des/tinderbox/tinderbox.pl	Sun Sep 22 14:09:07 2013	(r255788)
+++ user/des/tinderbox/tinderbox.pl	Sun Sep 22 14:21:40 2013	(r255789)
@@ -33,8 +33,8 @@ use Fcntl qw(:DEFAULT :flock);
 use POSIX;
 use Getopt::Long;
 
-my $VERSION	= "2.11";
-my $COPYRIGHT	= "Copyright (c) 2003-2012 Dag-Erling Smørgrav. " .
+my $VERSION	= "2.12";
+my $COPYRIGHT	= "Copyright (c) 2003-2013 Dag-Erling Smørgrav. " .
 		  "All rights reserved.";
 
 my $arch;			# Target architecture
@@ -501,7 +501,7 @@ MAIN:{
 
     # Find out what we're expected to do
     foreach my $cmd (@ARGV) {
-	if ($cmd =~ m/^([0-9A-Z_]+)=(.*)\s*$/) {
+	if ($cmd =~ m/^(\w+)=(.*)\s*$/) {
 	    $userenv{$1} = $2;
 	    next;
 	}