[Module-build-checkins] Module-Build/t install.t,1.15,1.16

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

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

Modified Files:
	install.t 
Log Message:
Integrate from branch

Index: install.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/install.t,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- install.t	10 Mar 2005 05:03:15 -0000	1.15
+++ install.t	16 Mar 2005 16:52:29 -0000	1.16
@@ -43,7 +43,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";
 }