Date: Sun, 29 Jun 2014 01:46:36 +0000 (UTC) From: Peter Wemm <peter@FreeBSD.org> 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 Message-ID: <201406290146.s5T1kaBU004009@svn.freebsd.org>
next in thread | raw e-mail | index | archive | help
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"; }
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201406290146.s5T1kaBU004009>