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{
-               qw(SCRIPT_NAME SCRIPT_FILENAME),
                grep /^REDIRECT_/, keys %ENV
        };
 
@@ -61,7 +60,7 @@ sub init {
 
 sub read ($) {
        my ($bytes) = @_;
-       read *STDIN, my $data, $bytes;
+       read *STDIN, my ($data), $bytes;
        return $data;
 }