view release on metacpan or  search on metacpan

bin/pmdistupdate  view on Meta::CPAN

It's implied that the target distro in in cvs.

AUTHOR
Leo Charre leocharre at cpan dot org

SEE ALSO
LEOCHARRE::Dev - parent package
}}


sub update_makefile {
   my $dist = shift;
   chdir $dist or die("Cannot chdir into $dist, $!");
   `pmmakefile > Makefile.PL`;
   print "+ makefile\n";
}

sub update_manifest {
   my $dist = shift;
   chdir $dist or die("Cannot chdir into $dist, $!");
   `pmmanifest > MANIFEST`;
   print "+ manifest\n";
}

sub update_cvs {
   my $dist = shift;
   chdir $dist or die("Cannot chdir into $dist, $!");
   `cvs commit -m ''`;
   print "+ cvs\n";
}


sub update_changes {
   my $dist = shift;
   chdir $dist or die("Cannot chdir into $dist, $!");
   
   if( my @changes = grep { /^changes$/i }  lsf($dist) ){
      debug("changefile: @changes");
      if( scalar @changes == 1 ) {
         `pmchanges > $changes[0]`;
      }
      else {
         warn("more than one changes file: @changes");