X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/668b6b454b1f7f05c6ff5f43afd088aabe3bd020..5ab467e41cb66512bdd8ddbb9b3f0504aed448da:/PLP.pm

diff --git a/PLP.pm b/PLP.pm
index f4afee8..60d43a1 100644
--- a/PLP.pm
+++ b/PLP.pm
@@ -14,7 +14,7 @@ use Cwd ();
 
 use strict;
 
-our $VERSION = '3.17';
+our $VERSION = '3.18';
 
 # Subs in this package:
 #  _default_error($plain, $html)    Default error handler
@@ -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;