git.shiar.nl
/
perl
/
plp
/
.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
keep SCRIPT_* environment variables in CGI
[perl/plp/.git]
/
lib
/
PLP
/
Backend
/
CGI.pm
diff --git
a/lib/PLP/Backend/CGI.pm
b/lib/PLP/Backend/CGI.pm
index e4bcf1edd3d5d0e019df5133faeb68dadfd79ebc..0005762dd5fe5d66cfedbfb0cc702cc4cfcc7b2b 100644
(file)
--- a/
lib/PLP/Backend/CGI.pm
+++ b/
lib/PLP/Backend/CGI.pm
@@
-48,7
+48,6
@@
sub init {
}
delete @ENV{
}
delete @ENV{
- qw(SCRIPT_NAME SCRIPT_FILENAME),
grep /^REDIRECT_/, keys %ENV
};
grep /^REDIRECT_/, keys %ENV
};
@@
-61,7
+60,7
@@
sub init {
sub read ($) {
my ($bytes) = @_;
sub read ($) {
my ($bytes) = @_;
- read *STDIN, my
$data
, $bytes;
+ read *STDIN, my
($data)
, $bytes;
return $data;
}
return $data;
}