[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.340.2.24,1.340.2.25

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

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

Modified Files:
      Tag: release-0_26_branch
	Base.pm 
Log Message:
Simplify a File::Spec-ism

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.340.2.24
retrieving revision 1.340.2.25
diff -u -d -r1.340.2.24 -r1.340.2.25
--- Base.pm	28 Feb 2005 22:41:52 -0000	1.340.2.24
+++ Base.pm	28 Feb 2005 22:54:07 -0000	1.340.2.25
@@ -2388,8 +2388,8 @@
 
   # Write the packlist into the same place as ExtUtils::MakeMaker.
   my $archdir = $self->install_destination('arch');
-  my $ext = File::Spec->catdir(split /::/, $self->module_name);
-  $map{write} = File::Spec->catdir($archdir, 'auto', $ext, '.packlist');
+  my @ext = split /::/, $self->module_name;
+  $map{write} = File::Spec->catdir($archdir, 'auto', @ext, '.packlist');
   
   if (length(my $destdir = $self->{properties}{destdir} || '')) {
     foreach (keys %map) {