Date: Sun, 22 Sep 2013 14:21:40 +0000 (UTC) From: Dag-Erling Smørgrav <des@FreeBSD.org> To: src-committers@freebsd.org, svn-src-user@freebsd.org Subject: svn commit: r255789 - user/des/tinderbox Message-ID: <201309221421.r8MELeJM060020@svn.freebsd.org>
next in thread | raw e-mail | index | archive | help
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; }
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201309221421.r8MELeJM060020>