From: Rafael Kitover <rkitover@cpan.org>
Date: Fri, 18 Jul 2008 12:02:16 +0000 (+0000)
Subject: C::C::CGIBin - fix bug in is_perl_cgi
X-Git-Tag: 0.030~58
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Controller-WrapCGI.git;a=commitdiff_plain;h=2369e5a42fcc6df4a949b9db7e05e2d875f9423b

C::C::CGIBin - fix bug in is_perl_cgi
---

diff --git a/META.yml b/META.yml
index a864664..da3c3f0 100644
--- a/META.yml
+++ b/META.yml
@@ -25,4 +25,4 @@ requires:
   Task::Weaken: 0
   URI: 0
   parent: 0
-version: 0.0022
+version: 0.0023
diff --git a/lib/Catalyst/Controller/CGIBin.pm b/lib/Catalyst/Controller/CGIBin.pm
index 1d2536c..c43b70e 100644
--- a/lib/Catalyst/Controller/CGIBin.pm
+++ b/lib/Catalyst/Controller/CGIBin.pm
@@ -22,11 +22,11 @@ Catalyst::Controller::CGIBin - Serve CGIs from root/cgi-bin
 
 =head1 VERSION
 
-Version 0.001
+Version 0.002
 
 =cut
 
-our $VERSION = '0.001';
+our $VERSION = '0.002';
 
 =head1 SYNOPSIS
 
@@ -161,7 +161,7 @@ sub is_perl_cgi {
 
     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' : '';
 
diff --git a/lib/Catalyst/Controller/WrapCGI.pm b/lib/Catalyst/Controller/WrapCGI.pm
index 886e3b3..8a66114 100644
--- a/lib/Catalyst/Controller/WrapCGI.pm
+++ b/lib/Catalyst/Controller/WrapCGI.pm
@@ -15,11 +15,11 @@ Catalyst::Controller::WrapCGI - Run CGIs in Catalyst
 
 =head1 VERSION
 
-Version 0.0022
+Version 0.0023
 
 =cut
 
-our $VERSION = '0.0022';
+our $VERSION = '0.0023';
 
 =head1 SYNOPSIS