--- branches/CPAN/Makefile.PL 2000/04/28 15:41:10 11 +++ cvs-head/Makefile.PL 2000/05/09 11:29:45 20 @@ -1,19 +1,18 @@ ######################### -*- Mode: Perl -*- ######################### ## ## $Basename: Makefile.PL $ -## $Revision: 1.7 $ +## $Revision: 1.13 $ ## ## Author : Ulrich Pfeifer ## Created On : Tue Aug 20 12:15:44 1996 ## ## Last Modified By : Ulrich Pfeifer -## Last Modified On : Sun Nov 22 18:44:49 1998 +## Last Modified On : Sun Apr 9 14:08:50 2000 ## ## Copyright (c) 1996-1997, Ulrich Pfeifer ## ###################################################################### - use strict; use Config; @@ -28,27 +27,26 @@ &init($OPT{default}); -my @pl_files = map { s!\.PL$!!; $_ } glob('script/*.PL'); -my %pl_files = map { $_ . '.PL' => $_ } @pl_files; +my @pl_files = glob('script/*'); my %seen; my @objects = grep { s![^.]+$!o!; !$seen{$_}++ } glob('*.[cx]*'); -my $VERSION = sprintf '%5.3f', map $_/10,'$ProjectVersion: 16.2 $ ' =~ /([\d.]+)/; - -WriteMakefile('PREREQ_PM' => {'Term::ReadLine' => 0, - 'DB_File' => 1.03, - 'Data::Dumper' => 2.02, - 'Pod::Text' => 1.02, - 'HTML::Entities' => 0, +WriteMakefile( + 'PREREQ_PM' => {'Term::ReadLine' => 0, + 'DB_File' => 1.03, + 'Data::Dumper' => 2.02, + 'Pod::Text' => 1.02, + 'HTML::Entities' => 0, + 'LockFile::Simple' => 0, }, 'NAME' => 'WAIT', 'OBJECT' => join(' ', @objects), - 'VERSION' => $VERSION, - 'PL_FILES' => \%pl_files, +# $Format: " 'VERSION' => sprintf('%5.3f', ($ProjectMajorVersion$ * 100 + ( $ProjectMinorVersion$-1))/1000),"$ + 'VERSION' => sprintf('%5.3f', (18 * 100 + ( 1-1))/1000), 'EXE_FILES' => \@pl_files, - 'clean' => { 'FILES' => "@pl_files" }, 'dist' => { + PREOP => 'cp README.header README && pod2text lib/WAIT.pm >> README', SUFFIX => 'gz', COMPRESS => 'gzip -9f', }, @@ -65,8 +63,7 @@ lib/WAIT/Query/Wais.pm: waisquery.y byacc -P -l waisquery.y; sed -n '2,$$ p' y.tab.pl | ]. "$Config{cpp} $Config{cppminus}" . - q[ | sed -e '/^# [0-9]/ d' > $@; - rm -f y.tab.pl + q[ | sed -e '/^# [0-9]/ d' > $@ && rm -f y.tab.pl TAGS: MANIFEST etags `].$^X.q[ -ane 'print "$$F[0]\n"' MANIFEST` @@ -175,9 +172,9 @@ ## write config - my $configpmdir = MM->catdir(qw/lib WAIT/); + my $configpmdir = MM->catdir('lib', 'WAIT'); mkpath $configpmdir; - my $configpm = MM->catfile( qw/lib WAIT Config.pm/ ); + my $configpm = MM->catfile('lib', 'WAIT', 'Config.pm/' ); open FH, "> $configpm" or die "Couldn't write open $configpm: $!\n"; print FH qq[\$WAIT::Config = \{\n];