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

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

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

Modified Files:
      Tag: release-0_26_branch
	Base.pm 
Log Message:
Add a create_packlist property, default true, that lets users avoid creating packlists

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.340.2.25
retrieving revision 1.340.2.26
diff -u -d -r1.340.2.25 -r1.340.2.26
--- Base.pm	28 Feb 2005 22:54:07 -0000	1.340.2.25
+++ Base.pm	2 Mar 2005 23:11:50 -0000	1.340.2.26
@@ -96,6 +96,7 @@
 				   installdirs     => 'site',
 				   install_path    => {},
 				   include_dirs    => [],
+				   create_packlist => 1,
 				   %input,
 				  },
 		   }, $package;
@@ -460,6 +461,7 @@
        bindoc_dirs
        libdoc_dirs
        get_options
+       create_packlist
       );
 
   sub valid_property { exists $valid_properties{$_[1]} }
@@ -2386,10 +2388,12 @@
     }
   }
 
-  # Write the packlist into the same place as ExtUtils::MakeMaker.
-  my $archdir = $self->install_destination('arch');
-  my @ext = split /::/, $self->module_name;
-  $map{write} = File::Spec->catdir($archdir, 'auto', @ext, '.packlist');
+  if ($self->create_packlist) {
+    # Write the packlist into the same place as ExtUtils::MakeMaker.
+    my $archdir = $self->install_destination('arch');
+    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) {