Attempt to fix some can't-possibly-work perl.
This commit is contained in:
parent
12d2a3d49d
commit
6c8cb8fc1d
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/head/; revision=45140
1 changed files with 1 additions and 1 deletions
|
@ -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";
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue