[Catalyst-commits] r12475 - in trunk/Catalyst-Controller-WrapCGI: . lib/Catalyst/Controller lib/CatalystX t/lib/TestCGIBin/root/cgi-bin

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-12-26 16:48:23 +0000 (Sat, 26 Dec 2009)
New Revision: 12475

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
   trunk/Catalyst-Controller-WrapCGI/t/lib/TestCGIBin/root/cgi-bin/sigs.pl
Log:
fix %SIG localization, release

Modified: trunk/Catalyst-Controller-WrapCGI/Changes
===================================================================
--- trunk/Catalyst-Controller-WrapCGI/Changes	2009-12-26 13:06:50 UTC (rev 12474)
+++ trunk/Catalyst-Controller-WrapCGI/Changes	2009-12-26 16:48:23 UTC (rev 12475)
@@ -1,5 +1,8 @@
 Revision history for Catalyst-Controller-WrapCGI
 
+0.025  2009-12-26 16:43:50
+    - fix %SIG localization in CGIBin
+
 0.024  2009-12-22 01:13:01
     - revert passing args to coderefs (some CGIs might implicitly shift off
      @ARGV .)

Modified: trunk/Catalyst-Controller-WrapCGI/lib/Catalyst/Controller/CGIBin.pm
===================================================================
--- trunk/Catalyst-Controller-WrapCGI/lib/Catalyst/Controller/CGIBin.pm	2009-12-26 13:06:50 UTC (rev 12474)
+++ trunk/Catalyst-Controller-WrapCGI/lib/Catalyst/Controller/CGIBin.pm	2009-12-26 16:48:23 UTC (rev 12475)
@@ -25,11 +25,11 @@
 
 =head1 VERSION
 
-Version 0.024
+Version 0.025
 
 =cut
 
-our $VERSION = '0.024';
+our $VERSION = '0.025';
 
 =head1 SYNOPSIS
 
@@ -278,7 +278,7 @@
                 . "CGI::initialize_globals() "."\n"
                 . "    if defined &CGI::initialize_globals;"."\n"
                 . q/my $rv = eval {/."\n"
-                . 'local %SIG;'."\n"
+                . 'local *SIG = +{ %SIG };'."\n"
                 . "#line 1 $cgi"."\n"
                 . $code."\n"
                 . q/};/

Modified: trunk/Catalyst-Controller-WrapCGI/lib/Catalyst/Controller/WrapCGI.pm
===================================================================
--- trunk/Catalyst-Controller-WrapCGI/lib/Catalyst/Controller/WrapCGI.pm	2009-12-26 13:06:50 UTC (rev 12474)
+++ trunk/Catalyst-Controller-WrapCGI/lib/Catalyst/Controller/WrapCGI.pm	2009-12-26 16:48:23 UTC (rev 12475)
@@ -21,11 +21,11 @@
 
 =head1 VERSION
 
-Version 0.024
+Version 0.025
 
 =cut
 
-our $VERSION = '0.024';
+our $VERSION = '0.025';
 
 =head1 SYNOPSIS
 

Modified: trunk/Catalyst-Controller-WrapCGI/lib/CatalystX/GlobalContext.pm
===================================================================
--- trunk/Catalyst-Controller-WrapCGI/lib/CatalystX/GlobalContext.pm	2009-12-26 13:06:50 UTC (rev 12474)
+++ trunk/Catalyst-Controller-WrapCGI/lib/CatalystX/GlobalContext.pm	2009-12-26 16:48:23 UTC (rev 12475)
@@ -15,11 +15,11 @@
 
 =head1 VERSION
 
-Version 0.024
+Version 0.025
 
 =cut
 
-our $VERSION = '0.024';
+our $VERSION = '0.025';
 
 =head1 SYNOPSIS
 

Modified: trunk/Catalyst-Controller-WrapCGI/t/lib/TestCGIBin/root/cgi-bin/sigs.pl
===================================================================
--- trunk/Catalyst-Controller-WrapCGI/t/lib/TestCGIBin/root/cgi-bin/sigs.pl	2009-12-26 13:06:50 UTC (rev 12474)
+++ trunk/Catalyst-Controller-WrapCGI/t/lib/TestCGIBin/root/cgi-bin/sigs.pl	2009-12-26 16:48:23 UTC (rev 12475)
@@ -5,7 +5,6 @@
 
 use CGI ':standard';
 
-$SIG{__DIE__} = sub { print "DIED!\n" };
-$SIG{__WARN__} = sub { print "WARNED!\n" };
+$SIG{USR1} = 'IGNORE';
 
 print header;