[Catalyst-commits] r8139 - in trunk/Catalyst-Controller-WrapCGI: . lib/Catalyst/Controller

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2008-07-18 13:02:16 +0100 (Fri, 18 Jul 2008)
New Revision: 8139

Modified:
   trunk/Catalyst-Controller-WrapCGI/META.yml
   trunk/Catalyst-Controller-WrapCGI/lib/Catalyst/Controller/CGIBin.pm
   trunk/Catalyst-Controller-WrapCGI/lib/Catalyst/Controller/WrapCGI.pm
Log:
C::C::CGIBin - fix bug in is_perl_cgi


Modified: trunk/Catalyst-Controller-WrapCGI/META.yml
===================================================================
--- trunk/Catalyst-Controller-WrapCGI/META.yml	2008-07-18 11:23:28 UTC (rev 8138)
+++ trunk/Catalyst-Controller-WrapCGI/META.yml	2008-07-18 12:02:16 UTC (rev 8139)
@@ -25,4 +25,4 @@
   Task::Weaken: 0
   URI: 0
   parent: 0
-version: 0.0022
+version: 0.0023

Modified: trunk/Catalyst-Controller-WrapCGI/lib/Catalyst/Controller/CGIBin.pm
===================================================================
--- trunk/Catalyst-Controller-WrapCGI/lib/Catalyst/Controller/CGIBin.pm	2008-07-18 11:23:28 UTC (rev 8138)
+++ trunk/Catalyst-Controller-WrapCGI/lib/Catalyst/Controller/CGIBin.pm	2008-07-18 12:02:16 UTC (rev 8139)
@@ -22,11 +22,11 @@
 
 =head1 VERSION
 
-Version 0.001
+Version 0.002
 
 =cut
 
-our $VERSION = '0.001';
+our $VERSION = '0.002';
 
 =head1 SYNOPSIS
 
@@ -161,7 +161,7 @@
 
     my $shebang = IO::File->new($cgi)->getline;
 
-    return 0 if $shebang !~ /perl/ || $cgi !~ /\.pl\z/;
+    return 0 if $shebang !~ /perl/ && $cgi !~ /\.pl\z/;
 
     my $taint_check = $shebang =~ /-T/ ?  '-T' : '';
 

Modified: trunk/Catalyst-Controller-WrapCGI/lib/Catalyst/Controller/WrapCGI.pm
===================================================================
--- trunk/Catalyst-Controller-WrapCGI/lib/Catalyst/Controller/WrapCGI.pm	2008-07-18 11:23:28 UTC (rev 8138)
+++ trunk/Catalyst-Controller-WrapCGI/lib/Catalyst/Controller/WrapCGI.pm	2008-07-18 12:02:16 UTC (rev 8139)
@@ -15,11 +15,11 @@
 
 =head1 VERSION
 
-Version 0.0022
+Version 0.0023
 
 =cut
 
-our $VERSION = '0.0022';
+our $VERSION = '0.0023';
 
 =head1 SYNOPSIS