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

This commit is contained in:
Peter Wemm 2014-06-29 01:46:35 +00:00
parent 12d2a3d49d
commit 6c8cb8fc1d
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/head/; revision=45140

View file

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