[Module-build-checkins] Module-Build/t destinations.t,1.29,1.30

[Randy W. S. <si...@us...>]

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;
 }