[libmojolicious-plugin-cgi-perl] 01/05: Imported Upstream version 0.08
Alex Muntada
alexm-guest at moszumanska.debian.org
Tue Jun 10 19:12:25 UTC 2014
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 <alexm at 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
lee at 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 - "jhthorsen at 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<jhthorsen at 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<jhthorsen at 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
More information about the Pkg-perl-cvs-commits
mailing list