[Catalyst-commits] r12024 - in Catalyst-Runtime/5.80/branches/fastcgi_ipc-run: . lib/Catalyst/Engine

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-11-26 01:23:39 +0000 (Thu, 26 Nov 2009)
New Revision: 12024

Modified:
   Catalyst-Runtime/5.80/branches/fastcgi_ipc-run/Changes
   Catalyst-Runtime/5.80/branches/fastcgi_ipc-run/lib/Catalyst/Engine/FastCGI.pm
Log:
Dump 'fix' for IPC::Run here until I understand what's going on

Modified: Catalyst-Runtime/5.80/branches/fastcgi_ipc-run/Changes
===================================================================
--- Catalyst-Runtime/5.80/branches/fastcgi_ipc-run/Changes	2009-11-26 01:22:12 UTC (rev 12023)
+++ Catalyst-Runtime/5.80/branches/fastcgi_ipc-run/Changes	2009-11-26 01:23:39 UTC (rev 12024)
@@ -6,6 +6,8 @@
      upgraded, may get upgraded even after they are encoded, and will
      produce the same output either way, but bytes::length returns too big
      values for upgraded strings containing characters >127
+   - Make FastCGI compatible with modules which use the fileno call to
+     determine if a file is open (E.g. IPC::Run)
 
   Refactoring / cleanups:
    - NoTabs and Pod tests moved to t/author so that they're not run

Modified: Catalyst-Runtime/5.80/branches/fastcgi_ipc-run/lib/Catalyst/Engine/FastCGI.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/fastcgi_ipc-run/lib/Catalyst/Engine/FastCGI.pm	2009-11-26 01:22:12 UTC (rev 12023)
+++ Catalyst-Runtime/5.80/branches/fastcgi_ipc-run/lib/Catalyst/Engine/FastCGI.pm	2009-11-26 01:23:39 UTC (rev 12024)
@@ -144,6 +144,11 @@
 
         $self->_fix_env( \%env );
 
+        # hack for perl libraries that use FILENO (e.g. IPC::Run)
+        # trying to patch FCGI.pm, but not got there yet :/
+        local *FCGI::Stream::FILENO = sub { -2 }
+            unless FCGI::Stream->can('FILENO');
+
         $class->handle_request( env => \%env );
 
         $proc_manager && $proc_manager->pm_post_dispatch();