Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13135/t
Modified Files:
destinations.t
Log Message:
File::Spec on Cygwin insists on adding a trailing slash in some path names. Remove them before performing comparisons.
Index: destinations.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/destinations.t,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -d -r1.29 -r1.30
--- destinations.t 28 Sep 2005 04:37:15 -0000 1.29
+++ destinations.t 3 Oct 2005 03:51:06 -0000 1.30
@@ -199,8 +199,13 @@
sub have_same_ending {
my ($dir1, $dir2, $message) = @_;
+
+ $dir1 =~ s{/$}{} if $^O eq 'cygwin'; # remove any trailing slash
my @dir1 = splitdir $dir1;
+
+ $dir2 =~ s{/$}{} if $^O eq 'cygwin'; # remove any trailing slash
my @dir2 = splitdir $dir2;
+
is $dir1[-1], $dir2[-1], $message;
}
|
