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; |
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, |
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', |
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]; |