os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

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

Browse source
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
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
en_US.ISO8859-1/htdocs/cgi/dosendpr.cgi
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 # Returns X-header style headers for inclusion in the header of a PR
sub env2hdr (@) { sub env2hdr (@) {
my $headers = ""; my $headers = "";
for my $var (shift @_) { foreach my $var (@_) {
next unless $ENV{$var}; next unless $ENV{$var};
$headers .= "X-$var: $ENV{$var}\n"; $headers .= "X-$var: $ENV{$var}\n";
} }