This is an automated email from the git hooks/post-receive script.

alexm-guest pushed a commit to branch master
in repository libmojolicious-plugin-cgi-perl.

commit cefe60958a1a4e0ebbd977f4cf379fad3440610d
Author: Alex Muntada <al...@alexm.org>
Date:   Wed May 14 21:02:11 2014 +0200

    Imported Upstream version 0.08
---
 Changes                       |  9 +++++++++
 META.json                     |  2 +-
 META.yml                      |  2 +-
 README                        |  8 +++++++-
 README.pod                    | 15 +++++++++++----
 lib/Mojolicious/Plugin/CGI.pm | 15 +++++++++++----
 t/basic.t                     |  2 +-
 t/post.t                      | 19 ++++++++++++-------
 8 files changed, 53 insertions(+), 19 deletions(-)

diff --git a/Changes b/Changes
index 0d40adc..260e088 100644
--- a/Changes
+++ b/Changes
@@ -1,10 +1,19 @@
 Revision history for Mojolicious-Plugin-CGI
 
+0.08     Wed May 14 10:29:24 2014
+       * Flushing STDERR as well
+       * Fix REMOTE_HOST test on windows
+         
http://www.cpantesters.org/cpan/report/99cac79a-725d-1014-82ca-1dcb5cf4dae8
+         REMOTE_HOST=599DSOLIMANO01.cowen.corp != localhost
+
 0.07     Sun Nov 17 14:11:59 2013
        * Reads userinfo from request path
        * Add support for errlog
        * Fix PATH_INFO and SCRIPT_NAME
 
+0.0601   Tue Oct  1 12:36:25 2013
+       * Add repository to Makefile.PL
+
 0.06     Tue Sep 24 09:43:37 2013
        * Add support multipart requests
          l...@givengain.ch
diff --git a/META.json b/META.json
index db7fd36..ba0e9a8 100644
--- a/META.json
+++ b/META.json
@@ -49,5 +49,5 @@
          "url" : "https://github.com/jhthorsen/mojolicious-plugin-cgi";
       }
    },
-   "version" : "0.07"
+   "version" : "0.08"
 }
diff --git a/META.yml b/META.yml
index bf3c962..170a376 100644
--- a/META.yml
+++ b/META.yml
@@ -24,4 +24,4 @@ resources:
   homepage: https://metacpan.org/module/Mojolicious::Plugin::CGI
   license: http://dev.perl.org/licenses/
   repository: https://github.com/jhthorsen/mojolicious-plugin-cgi
-version: 0.07
+version: 0.08
diff --git a/README b/README
index de422f9..83aceeb 100644
--- a/README
+++ b/README
@@ -2,7 +2,7 @@ NAME
     Mojolicious::Plugin::CGI - Run CGI script from Mojolicious
 
 VERSION
-    0.07
+    0.08
 
 DESCRIPTION
     This plugin enable Mojolicious to run Perl CGI scripts. It does so by
@@ -64,6 +64,12 @@ METHODS
 
     $route can be either a plain path or a route object.
 
+COPYRIGHT AND LICENSE
+    Copyright (C) 2014, Jan Henning Thorsen
+
+    This program is free software, you can redistribute it and/or modify it
+    under the terms of the Artistic License version 2.0.
+
 AUTHOR
     Jan Henning Thorsen - "jhthor...@cpan.org"
 
diff --git a/README.pod b/README.pod
index b96c1b5..c50f243 100644
--- a/README.pod
+++ b/README.pod
@@ -6,7 +6,7 @@ Mojolicious::Plugin::CGI - Run CGI script from Mojolicious
 
 =head1 VERSION
 
-0.07
+0.08
 
 =head1 DESCRIPTION
 
@@ -45,7 +45,7 @@ use constant CHUNK_SIZE => 131072;
 use constant CHECK_CHILD_INTERVAL => $ENV{CHECK_CHILD_INTERVAL} || 0.01;
 use constant DEBUG => $ENV{MOJO_PLUGIN_CGI_DEBUG} || 0;
 
-our $VERSION = '0.07';
+our $VERSION = '0.08';
 our %ORIGINAL_ENV = %ENV;
 
 =head1 METHODS
@@ -203,8 +203,8 @@ sub register {
       open STDIN, '<', $stdin->path or die "Could not open @{[$stdin->path]}: 
$!" if -s $stdin->path;
       open STDOUT, '>&' . fileno $stdout_write or die $!;
       open STDERR, '>>', $self->{errlog} if $self->{errlog};
-      select STDOUT;
-      $| = 1;
+      select STDERR; $| = 1;
+      select STDOUT; $| = 1;
       { exec $self->{script} }
       die "Could not execute $self->{script}: $!";
     }
@@ -257,6 +257,13 @@ sub _stdout_callback {
   }
 }
 
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (C) 2014, Jan Henning Thorsen
+
+This program is free software, you can redistribute it and/or modify it under
+the terms of the Artistic License version 2.0.
+
 =head1 AUTHOR
 
 Jan Henning Thorsen - C<jhthor...@cpan.org>
diff --git a/lib/Mojolicious/Plugin/CGI.pm b/lib/Mojolicious/Plugin/CGI.pm
index b96c1b5..c50f243 100644
--- a/lib/Mojolicious/Plugin/CGI.pm
+++ b/lib/Mojolicious/Plugin/CGI.pm
@@ -6,7 +6,7 @@ Mojolicious::Plugin::CGI - Run CGI script from Mojolicious
 
 =head1 VERSION
 
-0.07
+0.08
 
 =head1 DESCRIPTION
 
@@ -45,7 +45,7 @@ use constant CHUNK_SIZE => 131072;
 use constant CHECK_CHILD_INTERVAL => $ENV{CHECK_CHILD_INTERVAL} || 0.01;
 use constant DEBUG => $ENV{MOJO_PLUGIN_CGI_DEBUG} || 0;
 
-our $VERSION = '0.07';
+our $VERSION = '0.08';
 our %ORIGINAL_ENV = %ENV;
 
 =head1 METHODS
@@ -203,8 +203,8 @@ sub register {
       open STDIN, '<', $stdin->path or die "Could not open @{[$stdin->path]}: 
$!" if -s $stdin->path;
       open STDOUT, '>&' . fileno $stdout_write or die $!;
       open STDERR, '>>', $self->{errlog} if $self->{errlog};
-      select STDOUT;
-      $| = 1;
+      select STDERR; $| = 1;
+      select STDOUT; $| = 1;
       { exec $self->{script} }
       die "Could not execute $self->{script}: $!";
     }
@@ -257,6 +257,13 @@ sub _stdout_callback {
   }
 }
 
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (C) 2014, Jan Henning Thorsen
+
+This program is free software, you can redistribute it and/or modify it under
+the terms of the Artistic License version 2.0.
+
 =head1 AUTHOR
 
 Jan Henning Thorsen - C<jhthor...@cpan.org>
diff --git a/t/basic.t b/t/basic.t
index 93f4980..d9ca8f3 100644
--- a/t/basic.t
+++ b/t/basic.t
@@ -32,7 +32,7 @@ 
$t->get_ok($t->tx->req->url->clone->userinfo('testdummy:foopass')->path('/env/ba
   ->content_like(qr{^PATH_INFO=/foo}m, 'PATH_INFO=/env/basic')
   ->content_like(qr{^QUERY_STRING=query=123}m, 'QUERY_STRING=query=123')
   ->content_like(qr{^REMOTE_ADDR=\d+\S+}m, 'REMOTE_ADDR=\d+\S+')
-  ->content_like(qr{^REMOTE_HOST=localhost}m, 'REMOTE_HOST=localhost')
+  ->content_like(qr{^REMOTE_HOST=[\w\.]+}m, 'REMOTE_HOST=')
   ->content_like(qr{^REMOTE_PORT=\w+}m, 'REMOTE_PORT=\w+')
   ->content_like(qr{^REMOTE_USER=testdummy}m, 'REMOTE_USER=testdummy')
   ->content_like(qr{^REQUEST_METHOD=GET}m, 'REQUEST_METHOD=GET')
diff --git a/t/post.t b/t/post.t
index b96a7cc..00dab56 100644
--- a/t/post.t
+++ b/t/post.t
@@ -28,13 +28,18 @@ else {
 }
 
 # FIXME? possibly not the best way to test if there is a pipe leak
-if (-d "/proc/$$/fd") {
-  my $pipes = grep { defined $_ ? /pipe:/ : undef }
-    map { readlink("/proc/$$/fd/".(split '/')[-1]) }
-      glob "/proc/$$/fd/*";
-
-  note "pipes:$pipes";
-  ok( !($pipes % 2),'no leaky pipes');
+SKIP: {
+  skip "test for leaky pipes under Debian build", 1
+    if $ENV{DEBIAN_BUILD};
+
+  if (-d "/proc/$$/fd") {
+    my $pipes = grep { defined $_ ? /pipe:/ : undef }
+      map { readlink("/proc/$$/fd/".(split '/')[-1]) }
+        glob "/proc/$$/fd/*";
+
+    note "pipes:$pipes";
+    ok( !($pipes % 2),'no leaky pipes');
+  }
 }
 
 done_testing;

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-perl/packages/libmojolicious-plugin-cgi-perl.git

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to