Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP

Comparing changes

Choose two branches to see what’s changed or to start a new pull request. If you need to, you can also compare across forks.

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also compare across forks.
  • 3 commits
  • 5 files changed
  • 0 commit comments
  • 1 contributor
Commits on Aug 15, 2011
@rjray Forgot to bump version number. e040721
Commits on Aug 16, 2011
@rjray Merge branch 'master' of github.com:rjray/rpc-xml 2669bab
Commits on Aug 17, 2011
@rjray These tests had failures when run as root.
Permissions-based negative tests were incorrectly passing.
73aa084
View
2  lib/Apache/RPC/Server.pm
@@ -50,7 +50,7 @@ BEGIN
%Apache::RPC::Server::SERVER_TABLE = ();
}
-our $VERSION = '1.39';
+our $VERSION = '1.40';
$VERSION = eval $VERSION; ## no critic (ProhibitStringyEval)
sub version { return $Apache::RPC::Server::VERSION }
View
2  t/11_base64_fh.t
@@ -207,6 +207,8 @@ SKIP: {
# it doesn't have the concept of chmod...
skip 'Tests involving directory permissions skipped on Windows', 2
if ($^O eq 'MSWin32' || $^O eq 'cygwin');
+ skip 'Tests involving directory permissions skipped under root', 2
+ if ($< == 0);
my $baddir = File::Spec->catdir(File::Spec->tmpdir(), "baddir_$$");
if (! mkdir $baddir)
View
2  t/20_xml_parser.t
@@ -530,6 +530,8 @@ test_bad_xml($badstr, 'End-of-parse error');
SKIP: {
skip 'Tests involving directory permissions skipped on Windows', 1
if ($^O eq 'MSWin32' || $^O eq 'cygwin');
+ skip 'Tests involving directory permissions skipped under root', 1
+ if ($< == 0);
my $baddir = File::Spec->catdir(File::Spec->tmpdir(), "baddir_$$");
if (! mkdir $baddir)
View
2  t/21_xml_libxml.t
@@ -408,6 +408,8 @@ like($ret, qr/Unknown tag "structt"/, 'Correct error message');
SKIP: {
skip 'Tests involving directory permissions skipped on Windows', 1
if ($^O eq 'MSWin32' || $^O eq 'cygwin');
+ skip 'Tests involving directory permissions skipped under root', 1
+ if ($< == 0);
my $baddir = File::Spec->catdir(File::Spec->tmpdir(), "baddir_$$");
if (! mkdir $baddir)
View
4 t/40_server.t
@@ -133,6 +133,10 @@ SKIP: {
# Let's test that server creation properly fails if/when HTTP::Daemon fails.
# First find a port in use, preferably under 1024:
SKIP: {
+ if ($< == 0)
+ {
+ skip 'Negative port-based test unreliable when run as root', 2;
+ }
$port = find_port_in_use();
if ($port == -1)
{

No commit comments for this range

Something went wrong with that request. Please try again.