home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / WriteAll.pm < prev    next >
Encoding:
Perl POD Document  |  2003-12-17  |  848 b   |  42 lines
  1. # $File: //depot/cpan/Module-Install/lib/Module/Install/Admin/WriteAll.pm $ $Author: autrijus $
  2. # $Revision: #4 $ $Change: 1821 $ $DateTime: 2003/12/14 21:07:46 $
  3.  
  4. package Module::Install::Admin::WriteAll;
  5. use Module::Install::Base; @ISA = qw(Module::Install::Base);
  6.  
  7. $VERSION = '0.01';
  8.  
  9. sub WriteAll {
  10.     my ($self, %args) = @_;
  11.  
  12.     if (-e 'Makefile.PL') {
  13.     $self->load('Makefile');
  14.     if ($args{check_nmake}) {
  15.         $self->load($_) for qw(Makefile check_nmake can_run get_file);
  16.     }
  17.     }
  18.  
  19.     if (-e 'Build.PL') {
  20.     $self->load('Build');
  21.     if ($self->sign and !-e 'MANIFEST.SKIP') {
  22.         local *FH;
  23.         open FH, '>MANIFEST.SKIP' or die $!;
  24.         print FH << '.';
  25. #defaults
  26. ^Makefile$
  27. ^blib/
  28. ^pm_to_blib$
  29. ^blibdirs$
  30. ^Build$
  31. ^_build/
  32. .
  33.         close FH;
  34.         open FH, '>>MANIFEST' or die $!;
  35.         print FH "MANIFEST.SKIP";
  36.         close FH;
  37.     }
  38.     }
  39. }
  40.  
  41. 1;
  42.