From owner-svn-doc-head@FreeBSD.ORG  Sun Jun 29 01:46:36 2014
Return-Path: <owner-svn-doc-head@FreeBSD.ORG>
Delivered-To: svn-doc-head@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 ESMTPS id 6BC31267;
 Sun, 29 Jun 2014 01:46:36 +0000 (UTC)
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))
 (Client did not present a certificate)
 by mx1.freebsd.org (Postfix) with ESMTPS id 58B272AEC;
 Sun, 29 Jun 2014 01:46:36 +0000 (UTC)
Received: from svn.freebsd.org ([127.0.1.70])
 by svn.freebsd.org (8.14.8/8.14.8) with ESMTP id s5T1kasl004010;
 Sun, 29 Jun 2014 01:46:36 GMT (envelope-from peter@svn.freebsd.org)
Received: (from peter@localhost)
 by svn.freebsd.org (8.14.8/8.14.8/Submit) id s5T1kaBU004009;
 Sun, 29 Jun 2014 01:46:36 GMT (envelope-from peter@svn.freebsd.org)
Message-Id: <201406290146.s5T1kaBU004009@svn.freebsd.org>
From: Peter Wemm <peter@FreeBSD.org>
Date: Sun, 29 Jun 2014 01:46:36 +0000 (UTC)
To: doc-committers@freebsd.org, svn-doc-all@freebsd.org,
 svn-doc-head@freebsd.org
Subject: svn commit: r45140 - head/en_US.ISO8859-1/htdocs/cgi
X-SVN-Group: doc-head
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
X-BeenThere: svn-doc-head@freebsd.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: SVN commit messages for the doc tree for head
 <svn-doc-head.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/options/svn-doc-head>,
 <mailto:svn-doc-head-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/svn-doc-head/>
List-Post: <mailto:svn-doc-head@freebsd.org>
List-Help: <mailto:svn-doc-head-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/svn-doc-head>,
 <mailto:svn-doc-head-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Sun, 29 Jun 2014 01:46:36 -0000

Author: peter (src committer)
Date: Sun Jun 29 01:46:35 2014
New Revision: 45140
URL: http://svnweb.freebsd.org/changeset/doc/45140

Log:
  Attempt to fix some can't-possibly-work perl.

Modified:
  head/en_US.ISO8859-1/htdocs/cgi/dosendpr.cgi

Modified: head/en_US.ISO8859-1/htdocs/cgi/dosendpr.cgi
==============================================================================
--- head/en_US.ISO8859-1/htdocs/cgi/dosendpr.cgi	Sat Jun 28 19:54:59 2014	(r45139)
+++ head/en_US.ISO8859-1/htdocs/cgi/dosendpr.cgi	Sun Jun 29 01:46:35 2014	(r45140)
@@ -44,7 +44,7 @@ my @ENV_captures = qw/	REMOTE_HOST
 # Returns X-header style headers for inclusion in the header of a PR
 sub env2hdr (@) {
 	my $headers = "";
-	for my $var (shift @_) {
+	foreach my $var (@_) {
 		next unless $ENV{$var};
 		$headers .= "X-$var: $ENV{$var}\n";
 	}