cleanup (minor things like punctuation, use spaces for docu indenting)

[perl/plp/.git] / PLP.pm

diff --git a/PLP.pm b/PLP.pm
index f4afee889c7d429e70c003db0f7b82f555d19f93..df6ea349b5263965effc405e795da31c6c77031c 100644 (file)
--- a/PLP.pm
+++ b/PLP.pm
@@ -68,7 +68,7 @@ sub cgi_init {
 
     delete @ENV{
        qw(PATH_TRANSLATED SCRIPT_NAME SCRIPT_FILENAME PATH_INFO),
-        grep { /^REDIRECT_/ } keys %ENV
+        grep /^REDIRECT_/, keys %ENV
     };
 
     $ENV{PATH_INFO} = $path_info if defined $path_info;