Change 31336 by [EMAIL PROTECTED] on 2007/06/06 08:16:44
Subject: Re: [PATCH] Update File-Path to 2.00
From: David Landgren <[EMAIL PROTECTED]>
Date: Tue, 05 Jun 2007 23:21:40 +0200
Message-ID: <[EMAIL PROTECTED]>
Silences some unnecessary carping (e.g. from ExtUtils::Command line 109
when building perl).
Affected files ...
... //depot/perl/lib/File/Path.pm#45 edit
... //depot/perl/lib/File/Path.t#7 edit
Differences ...
==== //depot/perl/lib/File/Path.pm#45 (text) ====
Index: perl/lib/File/Path.pm
--- perl/lib/File/Path.pm#44~31329~ 2007-06-03 09:19:37.000000000 -0700
+++ perl/lib/File/Path.pm 2007-06-06 01:16:44.000000000 -0700
@@ -502,7 +502,7 @@
push @{${$arg->{error}}}, {'' => "No root path(s) specified"};
}
else {
- _carp ("No root path(s) specified\n");
+ $arg->{verbose} and _carp ("No root path(s) specified\n");
}
return 0;
}
==== //depot/perl/lib/File/Path.t#7 (xtext) ====
Index: perl/lib/File/Path.t
--- perl/lib/File/Path.t#6~31329~ 2007-06-03 09:19:37.000000000 -0700
+++ perl/lib/File/Path.t 2007-06-06 01:16:44.000000000 -0700
@@ -252,7 +252,7 @@
$dir2 = catdir($base,'B');
stderr_like(
- \&rmtree,
+ sub { rmtree( [], 1 ) },
qr/\ANo root path\(s\) specified\b/,
"rmtree of nothing carps sensibly"
);
End of Patch.
