/[wait]/branches/CPAN/Makefile.PL
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /branches/CPAN/Makefile.PL

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 12 by unknown, Fri Apr 28 15:41:10 2000 UTC revision 13 by ulpfr, Fri Apr 28 15:42:44 2000 UTC
# Line 1  Line 1 
1  ######################### -*- Mode: Perl -*- #########################  ######################### -*- Mode: Perl -*- #########################
2  ##  ##
3  ## $Basename: Makefile.PL $  ## $Basename: Makefile.PL $
4  ## $Revision: 1.7 $  ## $Revision: 1.10 $
5  ##  ##
6  ## Author           : Ulrich Pfeifer  ## Author           : Ulrich Pfeifer
7  ## Created On       : Tue Aug 20 12:15:44 1996  ## Created On       : Tue Aug 20 12:15:44 1996
8  ##  ##
9  ## Last Modified By : Ulrich Pfeifer  ## Last Modified By : Ulrich Pfeifer
10  ## Last Modified On : Sun Nov 22 18:44:49 1998  ## Last Modified On : Mon May 31 15:50:33 1999
11  ##  ##
12  ## Copyright (c) 1996-1997, Ulrich Pfeifer  ## Copyright (c) 1996-1997, Ulrich Pfeifer
13  ##  ##
14  ######################################################################  ######################################################################
15    
   
16  use strict;  use strict;
17    
18  use Config;  use Config;
# Line 28  GetOptions(\%OPT, 'default!'); Line 27  GetOptions(\%OPT, 'default!');
27    
28  &init($OPT{default});  &init($OPT{default});
29    
30  my @pl_files = map { s!\.PL$!!; $_ }    glob('script/*.PL');  my @pl_files = glob('script/*');
 my %pl_files = map { $_ . '.PL' => $_ } @pl_files;  
31    
32  my %seen;  my %seen;
33  my @objects = grep { s![^.]+$!o!; !$seen{$_}++ } glob('*.[cx]*');  my @objects = grep { s![^.]+$!o!; !$seen{$_}++ } glob('*.[cx]*');
34    
 my $VERSION = sprintf '%5.3f', map $_/10,'$ProjectVersion: 16.2 $ ' =~ /([\d.]+)/;  
   
35  WriteMakefile('PREREQ_PM'    => {'Term::ReadLine' => 0,  WriteMakefile('PREREQ_PM'    => {'Term::ReadLine' => 0,
36                                   'DB_File'        => 1.03,                                   'DB_File'        => 1.03,
37                                   'Data::Dumper'   => 2.02,                                   'Data::Dumper'   => 2.02,
# Line 44  WriteMakefile('PREREQ_PM'    => {'Term:: Line 40  WriteMakefile('PREREQ_PM'    => {'Term::
40                                  },                                  },
41                'NAME'         => 'WAIT',                'NAME'         => 'WAIT',
42                'OBJECT'       => join(' ', @objects),                'OBJECT'       => join(' ', @objects),
43                'VERSION'      => $VERSION,                'VERSION_FROM' => "lib/WAIT.pm",
               'PL_FILES'     => \%pl_files,  
44                'EXE_FILES'    => \@pl_files,                'EXE_FILES'    => \@pl_files,
               'clean'        => { 'FILES' => "@pl_files" },  
45                'dist'         => {                'dist'         => {
46                                   SUFFIX   => 'gz',                                   SUFFIX   => 'gz',
47                                   COMPRESS => 'gzip -9f',                                   COMPRESS => 'gzip -9f',
# Line 175  you are finished. Line 169  you are finished.
169    
170        
171    ## write config    ## write config
172    my $configpmdir = MM->catdir(qw/lib WAIT/);    my $configpmdir = MM->catdir('lib', 'WAIT');
173    mkpath $configpmdir;    mkpath $configpmdir;
174    my $configpm = MM->catfile( qw/lib WAIT Config.pm/ );    my $configpm = MM->catfile('lib', 'WAIT', 'Config.pm/' );
175        
176    open FH, "> $configpm" or die "Couldn't write open $configpm: $!\n";    open FH, "> $configpm" or die "Couldn't write open $configpm: $!\n";
177    print FH qq[\$WAIT::Config = \{\n];    print FH qq[\$WAIT::Config = \{\n];
Legend:
Removed from v.12  
changed lines
  Added in v.13
  ViewVC Help
Powered by ViewVC 1.1.26