[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.520,1.521

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

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

Modified Files:
	Base.pm 
Log Message:
The 'ppmdist' action requires a specific directory structure which differs somewhat from ours. We rename a few directories and combine html directories all in a temporary directory, create the tarball, & cleanup.

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.520
retrieving revision 1.521
diff -u -d -r1.520 -r1.521
--- Base.pm	15 Nov 2005 09:49:48 -0000	1.520
+++ Base.pm	19 Nov 2005 04:36:48 -0000	1.521
@@ -2429,10 +2429,53 @@
 
 sub ACTION_ppmdist {
   my ($self) = @_;
-  
-  $self->depends_on('build', 'ppd');
-  $self->add_to_cleanup($self->ppm_name);
-  $self->make_tarball($self->blib, $self->ppm_name);
+
+  $self->depends_on( 'build' );
+
+  my $ppm = $self->ppm_name;
+  $self->delete_filetree( $ppm );
+  $self->log_info( "Creating $ppm\n" );
+  $self->add_to_cleanup( $ppm, "$ppm.tar.gz" );
+
+  my %types = ( # translate types/dirs to those expected by ppm
+    lib     => 'lib',
+    arch    => 'arch',
+    bin     => 'bin',
+    script  => 'script',
+    bindoc  => 'man1',
+    libdoc  => 'man3',
+    binhtml => 'html',
+    libhtml => 'html',
+  );
+
+  foreach my $type ($self->install_types) {
+    my $dir = File::Spec->catdir( $self->blib, $type );
+    next unless -e $dir;
+
+    my $files = $self->rscan_dir( $dir );
+    foreach my $file ( @$files ) {
+      next unless -f $file;
+      my $rel_file =
+	File::Spec->abs2rel( File::Spec->rel2abs( $file ),
+			     File::Spec->rel2abs( $dir  ) );
+      my $to_file  =
+	File::Spec->catdir( $ppm, 'blib',
+			    exists( $types{$type} ) ? $types{$type} : $type,
+			    $rel_file );
+      $self->copy_if_modified( from => $file, to => $to_file );
+    }
+  }
+
+  # create a tarball;
+  # the directory tar'ed must be blib so we need to do a chdir first
+  my $start_wd = $self->cwd;
+  chdir( $ppm ) or die "Can't chdir to $ppm";
+  $self->make_tarball( 'blib', File::Spec->catfile( $start_wd, $ppm ) );
+  chdir( $start_wd ) or die "Can't chdir to $start_wd";
+
+  $self->depends_on( 'ppd' );
+
+  $self->delete_filetree( $ppm );
 }
 
 sub ACTION_dist {