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

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-12-22 01:14:52 +0000 (Tue, 22 Dec 2009)
New Revision: 12460

Modified:
   trunk/Catalyst-Controller-WrapCGI/Changes
   trunk/Catalyst-Controller-WrapCGI/lib/Catalyst/Controller/CGIBin.pm
   trunk/Catalyst-Controller-WrapCGI/lib/Catalyst/Controller/WrapCGI.pm
   trunk/Catalyst-Controller-WrapCGI/lib/CatalystX/GlobalContext.pm
Log:
revert passing args to coderef

Modified: trunk/Catalyst-Controller-WrapCGI/Changes
===================================================================
--- trunk/Catalyst-Controller-WrapCGI/Changes	2009-12-22 00:42:02 UTC (rev 12459)
+++ trunk/Catalyst-Controller-WrapCGI/Changes	2009-12-22 01:14:52 UTC (rev 12460)
@@ -1,5 +1,9 @@
 Revision history for Catalyst-Controller-WrapCGI
 
+0.024  2009-12-22 01:13:01
+    - revert passing args to coderefs (some CGIs might implicitly shift off
+     @ARGV .)
+
 0.023  2009-12-22 00:41:10
     - some code stole from CGI::Compile (until we can dep on it)
         - correct line numbers for CGIs

Modified: trunk/Catalyst-Controller-WrapCGI/lib/Catalyst/Controller/CGIBin.pm
===================================================================
--- trunk/Catalyst-Controller-WrapCGI/lib/Catalyst/Controller/CGIBin.pm	2009-12-22 00:42:02 UTC (rev 12459)
+++ trunk/Catalyst-Controller-WrapCGI/lib/Catalyst/Controller/CGIBin.pm	2009-12-22 01:14:52 UTC (rev 12460)
@@ -25,11 +25,11 @@
 
 =head1 VERSION
 
-Version 0.023
+Version 0.024
 
 =cut
 
-our $VERSION = '0.023';
+our $VERSION = '0.024';
 
 =head1 SYNOPSIS
 

Modified: trunk/Catalyst-Controller-WrapCGI/lib/Catalyst/Controller/WrapCGI.pm
===================================================================
--- trunk/Catalyst-Controller-WrapCGI/lib/Catalyst/Controller/WrapCGI.pm	2009-12-22 00:42:02 UTC (rev 12459)
+++ trunk/Catalyst-Controller-WrapCGI/lib/Catalyst/Controller/WrapCGI.pm	2009-12-22 01:14:52 UTC (rev 12460)
@@ -21,11 +21,11 @@
 
 =head1 VERSION
 
-Version 0.023
+Version 0.024
 
 =cut
 
-our $VERSION = '0.023';
+our $VERSION = '0.024';
 
 =head1 SYNOPSIS
 
@@ -143,8 +143,6 @@
 Runs C<$coderef> in a CGI environment using L<HTTP::Request::AsCGI>, returns an
 L<HTTP::Response>.
 
-C<$coderef> is passed the Controller instance, and C<$c>.
-
 The CGI environment is set up based on C<$c>.
 
 The environment variables to pass on are taken from the configuration for your
@@ -235,7 +233,7 @@
     my $saved_error;
 
     $env->setup;
-    eval { $call->($self, $c) };
+    eval { $call->() };
     $saved_error = $@;
     $env->restore;
 

Modified: trunk/Catalyst-Controller-WrapCGI/lib/CatalystX/GlobalContext.pm
===================================================================
--- trunk/Catalyst-Controller-WrapCGI/lib/CatalystX/GlobalContext.pm	2009-12-22 00:42:02 UTC (rev 12459)
+++ trunk/Catalyst-Controller-WrapCGI/lib/CatalystX/GlobalContext.pm	2009-12-22 01:14:52 UTC (rev 12460)
@@ -15,11 +15,11 @@
 
 =head1 VERSION
 
-Version 0.023
+Version 0.024
 
 =cut
 
-our $VERSION = '0.023';
+our $VERSION = '0.024';
 
 =head1 SYNOPSIS