From owner-svn-src-user@FreeBSD.ORG Sun Sep 22 14:21:41 2013 Return-Path: Delivered-To: svn-src-user@freebsd.org Received: from mx1.freebsd.org (mx1.freebsd.org [IPv6:2001:1900:2254:206a::19:1]) (using TLSv1 with cipher ADH-AES256-SHA (256/256 bits)) (No client certificate requested) by hub.freebsd.org (Postfix) with ESMTP id 2119838C; Sun, 22 Sep 2013 14:21:41 +0000 (UTC) (envelope-from des@FreeBSD.org) Received: from svn.freebsd.org (svn.freebsd.org [IPv6:2001:1900:2254:2068::e6a:0]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by mx1.freebsd.org (Postfix) with ESMTPS id 0FE2B245F; Sun, 22 Sep 2013 14:21:41 +0000 (UTC) Received: from svn.freebsd.org ([127.0.1.70]) by svn.freebsd.org (8.14.7/8.14.7) with ESMTP id r8MELeaI060021; Sun, 22 Sep 2013 14:21:40 GMT (envelope-from des@svn.freebsd.org) Received: (from des@localhost) by svn.freebsd.org (8.14.7/8.14.5/Submit) id r8MELeJM060020; Sun, 22 Sep 2013 14:21:40 GMT (envelope-from des@svn.freebsd.org) Message-Id: <201309221421.r8MELeJM060020@svn.freebsd.org> From: Dag-Erling Smørgrav Date: Sun, 22 Sep 2013 14:21:40 +0000 (UTC) To: src-committers@freebsd.org, svn-src-user@freebsd.org Subject: svn commit: r255789 - user/des/tinderbox X-SVN-Group: user MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit X-BeenThere: svn-src-user@freebsd.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "SVN commit messages for the experimental " user" src tree" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Sun, 22 Sep 2013 14:21:41 -0000 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; }