[Bioperl-guts-l] bioperl-live ModuleBuildBioperl.pm, 1.5.2.12, 1.5.2.13

Senduran Balasubramaniam sendu at dev.open-bio.org
Tue Dec 5 15:23:03 EST 2006


Update of /home/repository/bioperl/bioperl-live
In directory dev.open-bio.org:/tmp/cvs-serv20539

Modified Files:
      Tag: branch-1-5-2
	ModuleBuildBioperl.pm 
Log Message:
corrected PPM creation

Index: ModuleBuildBioperl.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/ModuleBuildBioperl.pm,v
retrieving revision 1.5.2.12
retrieving revision 1.5.2.13
diff -C2 -d -r1.5.2.12 -r1.5.2.13
*** ModuleBuildBioperl.pm	5 Dec 2006 17:37:26 -0000	1.5.2.12
--- ModuleBuildBioperl.pm	5 Dec 2006 20:23:01 -0000	1.5.2.13
***************
*** 902,905 ****
--- 902,930 ----
  }
  
+ # don't copy across man3 docs since they're of little use under Windows and
+ # have bad filenames
+ sub ACTION_ppmdist {
+     my $self = shift;
+     my @types = $self->install_types(1);
+     $self->SUPER::ACTION_ppmdist(@_);
+     $self->install_types(0);
+ }
+ 
+ # when supplied a true value, pretends libdoc doesn't exist (preventing man3
+ # installation for ppmdist). when supplied false, they exist again
+ sub install_types {
+     my ($self, $no_libdoc) = @_;
+     $self->{no_libdoc} = $no_libdoc if defined $no_libdoc;
+     my @types = $self->SUPER::install_types;
+     if ($self->{no_libdoc}) {
+         my @altered_types;
+         foreach my $type (@types) {
+             push(@altered_types, $type) unless $type eq 'libdoc';
+         }
+         return @altered_types;
+     }
+     return @types;
+ }
+ 
  # overridden from Module::Build::PPMMaker for ppd4 compatability
  sub make_ppd {
***************
*** 922,928 ****
      my $date = "$year-$mon-$mday";
      
      # header
      my $ppd = <<"PPD";
!     <SOFTPKG NAME=\"$dist{name}\" VERSION=\"$dist{version}\" DATE=\"$date\">
          <TITLE>$dist{name}</TITLE>
          <ABSTRACT>$dist{abstract}</ABSTRACT>
--- 947,956 ----
      my $date = "$year-$mon-$mday";
      
+     my $softpkg_version = $self->dist_dir;
+     $softpkg_version =~ s/^$self->{properties}{dist_name}-//;
+     
      # header
      my $ppd = <<"PPD";
!     <SOFTPKG NAME=\"$dist{name}\" VERSION=\"$softpkg_version\" DATE=\"$date\">
          <TITLE>$dist{name}</TITLE>
          <ABSTRACT>$dist{abstract}</ABSTRACT>



More information about the Bioperl-guts-l mailing list