X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/b5e0ee87251670be18b2f2fc128a4be0b25ebfb8..0037699647feb915a9091a57af1a264777bcaecb:/lib/PLP/Backend/CGI.pm

diff --git a/lib/PLP/Backend/CGI.pm b/lib/PLP/Backend/CGI.pm
index e4bcf1e..0005762 100644
--- 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;
 }