Change 31329 by [EMAIL PROTECTED] on 2007/06/03 16:19:37
Subject: Re: [PATCH] Update File-Path to 2.00
From: David Landgren <[EMAIL PROTECTED]>
Date: Sat, 02 Jun 2007 20:58:16 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/File/Path.pm#44 edit
... //depot/perl/lib/File/Path.t#6 edit
Differences ...
==== //depot/perl/lib/File/Path.pm#44 (text) ====
Index: perl/lib/File/Path.pm
--- perl/lib/File/Path.pm#43~31327~ 2007-06-02 10:47:37.000000000 -0700
+++ perl/lib/File/Path.pm 2007-06-03 09:19:37.000000000 -0700
@@ -18,7 +18,7 @@
rmtree(
'foo/bar/baz', '/zug/zwang',
- { verbose => 1, errors => \my $err_list }
+ { verbose => 1, error => \my $err_list }
);
# traditional
@@ -362,10 +362,7 @@
use File::Basename ();
use File::Spec ();
BEGIN {
- if ($] >= 5.006) {
- eval "use warnings";
- }
- else {
+ if ($] < 5.006) {
# can't say 'opendir my $dh, $dirname'
# need to initialise $dh
eval "use Symbol";
==== //depot/perl/lib/File/Path.t#6 (xtext) ====
Index: perl/lib/File/Path.t
--- perl/lib/File/Path.t#5~31315~ 2007-05-31 02:42:05.000000000 -0700
+++ perl/lib/File/Path.t 2007-06-03 09:19:37.000000000 -0700
@@ -64,7 +64,8 @@
# IOW: File::Spec->catdir( qw(foo bar), File::Spec->updir ) eq 'foo'
# rather than foo/bar/..
skip "updir() canonicalises path on this platform", 2
- if $dir2 eq $tmp_base;
+ if $dir2 eq $tmp_base
+ or $^O eq 'cygwin';
@created = mkpath($dir2, {mask => 0700});
is(scalar(@created), 1, "make directory with trailing parent segment");
End of Patch.
