[Catalyst-commits] r9870 - in HTTP-Request-AsCGI/trunk: . lib/HTTP/Request

[hdp at dev.catalyst.perl.org]

Author: hdp
Date: 2009-04-27 00:17:07 +0100 (Mon, 27 Apr 2009)
New Revision: 9870

Modified:
   HTTP-Request-AsCGI/trunk/Changes
   HTTP-Request-AsCGI/trunk/README
   HTTP-Request-AsCGI/trunk/lib/HTTP/Request/AsCGI.pm
Log:
RT#18075

Modified: HTTP-Request-AsCGI/trunk/Changes
===================================================================
--- HTTP-Request-AsCGI/trunk/Changes	2009-04-26 23:02:17 UTC (rev 9869)
+++ HTTP-Request-AsCGI/trunk/Changes	2009-04-26 23:17:07 UTC (rev 9870)
@@ -1,5 +1,8 @@
 This file documents the revision history for Perl extension HTTP::Request::AsCGI.
 
+0.5_03 2009-04-29
+    - RT#18075: Play more nicely with Perl 5.6's open(). (hdp)
+
 0.5_02 2009-04-29
     - Avoid mixing buffered and unbuffered IO and flush STDIN after writing
       request content to it. (hdp)

Modified: HTTP-Request-AsCGI/trunk/README
===================================================================
--- HTTP-Request-AsCGI/trunk/README	2009-04-26 23:02:17 UTC (rev 9869)
+++ HTTP-Request-AsCGI/trunk/README	2009-04-26 23:17:07 UTC (rev 9870)
@@ -2,7 +2,7 @@
     HTTP::Request::AsCGI - Setup a CGI enviroment from a HTTP::Request
 
 VERSION
-    0.5_02
+    0.5_03
 
 SYNOPSIS
         use CGI;

Modified: HTTP-Request-AsCGI/trunk/lib/HTTP/Request/AsCGI.pm
===================================================================
--- HTTP-Request-AsCGI/trunk/lib/HTTP/Request/AsCGI.pm	2009-04-26 23:02:17 UTC (rev 9869)
+++ HTTP-Request-AsCGI/trunk/lib/HTTP/Request/AsCGI.pm	2009-04-26 23:17:07 UTC (rev 9870)
@@ -12,7 +12,7 @@
 
 __PACKAGE__->mk_accessors(qw[ enviroment request stdin stdout stderr ]);
 
-our $VERSION = 0.5_02;
+our $VERSION = 0.5_03;
 
 sub new {
     my $class   = shift;
@@ -95,20 +95,20 @@
           or croak("Can't flush stdin handle: $!");
     }
 
-    open( $self->{restore}->{stdin}, '<&', STDIN->fileno )
+    open( $self->{restore}->{stdin}, '<&'. STDIN->fileno )
       or croak("Can't dup stdin: $!");
 
-    open( STDIN, '<&=', $self->stdin->fileno )
+    open( STDIN, '<&='. $self->stdin->fileno )
       or croak("Can't open stdin: $!");
 
     binmode( STDIN );
 
     if ( $self->stdout ) {
 
-        open( $self->{restore}->{stdout}, '>&', STDOUT->fileno )
+        open( $self->{restore}->{stdout}, '>&'. STDOUT->fileno )
           or croak("Can't dup stdout: $!");
 
-        open( STDOUT, '>&=', $self->stdout->fileno )
+        open( STDOUT, '>&='. $self->stdout->fileno )
           or croak("Can't open stdout: $!");
 
         binmode( $self->stdout );
@@ -117,10 +117,10 @@
 
     if ( $self->stderr ) {
 
-        open( $self->{restore}->{stderr}, '>&', STDERR->fileno )
+        open( $self->{restore}->{stderr}, '>&'. STDERR->fileno )
           or croak("Can't dup stderr: $!");
 
-        open( STDERR, '>&=', $self->stderr->fileno )
+        open( STDERR, '>&='. $self->stderr->fileno )
           or croak("Can't open stderr: $!");
 
         binmode( $self->stderr );
@@ -230,7 +230,7 @@
         %ENV = %{ $self->{restore}->{enviroment} };
     }
 
-    open( STDIN, '<&', $self->{restore}->{stdin} )
+    open( STDIN, '<&'. fileno($self->{restore}->{stdin}) )
       or croak("Can't restore stdin: $!");
 
     sysseek( $self->stdin, 0, SEEK_SET )
@@ -241,7 +241,7 @@
         STDOUT->flush
           or croak("Can't flush stdout: $!");
 
-        open( STDOUT, '>&', $self->{restore}->{stdout} )
+        open( STDOUT, '>&'. fileno($self->{restore}->{stdout}) )
           or croak("Can't restore stdout: $!");
 
         sysseek( $self->stdout, 0, SEEK_SET )
@@ -253,7 +253,7 @@
         STDERR->flush
           or croak("Can't flush stderr: $!");
 
-        open( STDERR, '>&', $self->{restore}->{stderr} )
+        open( STDERR, '>&'. fileno($self->{restore}->{stderr}) )
           or croak("Can't restore stderr: $!");
 
         sysseek( $self->stderr, 0, SEEK_SET )