svn commit: r45140 - head/en_US.ISO8859-1/htdocs/cgi

[Peter Wemm]

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";
 	}