[Module-build-checkins] Module-Build/t install.t,1.12.2.2,1.12.2.3

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32057/t

Modified Files:
      Tag: release-0_26_branch
	install.t 
Log Message:
Fix a File::Spec usage issue in the tests

Index: install.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/install.t,v
retrieving revision 1.12.2.2
retrieving revision 1.12.2.3
diff -u -d -r1.12.2.2 -r1.12.2.3
--- install.t	28 Feb 2005 22:41:54 -0000	1.12.2.2
+++ install.t	16 Mar 2005 16:51:42 -0000	1.12.2.3
@@ -42,7 +42,8 @@
 
   # Make sure there's a packlist installed
   my $archdir = $build->install_destination('arch');
-  my $packlist = File::Spec->catdir($destdir, $archdir, 'auto', 'Sample', '.packlist');
+  my ($v, $d) = File::Spec->splitpath($archdir, 1);
+  my $packlist = File::Spec->catdir($destdir, $d, 'auto', 'Sample', '.packlist');
   ok -e $packlist, 1, "$packlist should be written";
 }