Skip Menu |

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the Path-Class CPAN distribution.

Maintainer(s)' notes

I prefer that bugs & patches are filed on GitHub rather than on RT: Thanks.

Report information
The Basics
Id: 81865
Status: open
Priority: 0/
Queue: Path-Class

Owner: Nobody in particular
Requestors: MITHALDU [...]

Bug Information
Severity: Critical
Broken in: 0.27
Fixed in: (no value)


Subject: Path::Class tests fail on Win32
Download (untitled) / with headers
text/plain 238b
The tests aren't visible on the normal matrix yet, but there's a preview here: Additionally, here's a log of such a FAIL: c469de586c6cd1fd2f30
Download (untitled) / with headers
text/plain 350b
Here is a patch that will fix the t/07-recurseprune.t test on Windows. For the other test, without loading a module to really manipulate permissions on Windows, the test either needs to be changed to test the method without looking at permissions or just skip the test on Windows; chmod 0000 does not prevent a file/folder from being read on Windows.
Subject: 0001-Platform-independent-paths-in-t-07-recurseprune.t.patch
From d451daeea55bb95e1a5a2f4aaaeeb6a189efaed4 Mon Sep 17 00:00:00 2001 From: Douglas Christopher Wilson <> Date: Mon, 10 Dec 2012 15:26:52 -0500 Subject: [PATCH] Platform-independent paths in t/07-recurseprune.t --- t/07-recurseprune.t | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/t/07-recurseprune.t b/t/07-recurseprune.t index a5f2c29..2061378 100644 --- a/t/07-recurseprune.t +++ b/t/07-recurseprune.t @@ -35,7 +35,7 @@ my $a = $tmp->subdir('a'); $a->recurse( callback => sub{ my $item = shift; - my $rel_item = $item->relative($tmp); + my $rel_item = $item->relative($tmp)->as_foreign('Unix'); $visited{$rel_item} = 1; }); @@ -54,7 +54,7 @@ ok( $a->PRUNE ); $a->recurse( callback => sub{ my $item = shift; - my $rel_item = $item->relative($tmp); + my $rel_item = $item->relative($tmp)->as_foreign('Unix'); $visited{$rel_item} = 1; return $item->PRUNE if $rel_item eq 'a/b'; }); @@ -75,7 +75,7 @@ is( $a->PRUNE, Path::Class::Entity::PRUNE() ); $a->recurse( callback => sub{ my $item = shift; - my $rel_item = $item->relative($tmp); + my $rel_item = $item->relative($tmp)->as_foreign('Unix'); $visited{$rel_item} = 1; return Path::Class::Entity::PRUNE() if $rel_item eq 'a/c'; }); -- 1.7.11.msysgit.1

This service is sponsored and maintained by Best Practical Solutions and runs on infrastructure.

Please report any issues with to