projects
/
catagits/Catalyst-Controller-WrapCGI.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
(from parent 1:
7fce5bb
)
C::C::CGIBin - fix bug in is_perl_cgi
Rafael Kitover [Fri, 18 Jul 2008 12:02:16 +0000 (12:02 +0000)]
META.yml
patch
|
blob
|
blame
|
history
lib/Catalyst/Controller/CGIBin.pm
patch
|
blob
|
blame
|
history
lib/Catalyst/Controller/WrapCGI.pm
patch
|
blob
|
blame
|
history
diff --git
a/META.yml
b/META.yml
index
a864664
..
da3c3f0
100644
(file)
--- 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
(file)
--- 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
(file)
--- 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