/[wait]/cvs-head/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 /cvs-head/Makefile.PL

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

branches/CPAN/Makefile.PL revision 13 by ulpfr, Fri Apr 28 15:42:44 2000 UTC cvs-head/Makefile.PL revision 43 by ulpfr, Fri Dec 29 12:28:53 2000 UTC
# Line 1  Line 1 
1  ######################### -*- Mode: Perl -*- #########################  ######################### -*- Mode: Perl -*- #########################
2  ##  ##
3  ## $Basename: Makefile.PL $  ## $Basename: Makefile.PL $
4  ## $Revision: 1.10 $  ## $Revision: 1.13 $
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 : Mon May 31 15:50:33 1999  ## Last Modified On : Fri Dec 29 12:55:10 2000
11  ##  ##
12  ## Copyright (c) 1996-1997, Ulrich Pfeifer  ## Copyright (c) 1996-1997, Ulrich Pfeifer
13  ##  ##
# Line 32  my @pl_files = glob('script/*'); Line 32  my @pl_files = glob('script/*');
32  my %seen;  my %seen;
33  my @objects = grep { s![^.]+$!o!; !$seen{$_}++ } glob('*.[cx]*');  my @objects = grep { s![^.]+$!o!; !$seen{$_}++ } glob('*.[cx]*');
34    
35  WriteMakefile('PREREQ_PM'    => {'Term::ReadLine' => 0,  WriteMakefile(
36                                   'DB_File'        => 1.03,                'PREREQ_PM'    => {'Term::ReadLine'   => 0,
37                                   'Data::Dumper'   => 2.02,                                   'DB_File'          => 1.03,
38                                   'Pod::Text'      => 1.02,                                   'Data::Dumper'     => 2.02,
39                                   'HTML::Entities' => 0,                                   'Pod::Text'        => 1.02,
40                                     'HTML::Entities'   => 0,
41                                     'LockFile::Simple' => 0,
42                                  },                                  },
43                'NAME'         => 'WAIT',                'NAME'         => 'WAIT',
44                'OBJECT'       => join(' ', @objects),                'OBJECT'       => join(' ', @objects),
45                'VERSION_FROM' => "lib/WAIT.pm",                'VERSION_FROM' => 'lib/WAIT.pm',
46                'EXE_FILES'    => \@pl_files,                'EXE_FILES'    => \@pl_files,
47                'dist'         => {                'dist'         => {
48                                     PREOP => 'cp README.header README && pod2text lib/WAIT.pm >> README',
49                                   SUFFIX   => 'gz',                                   SUFFIX   => 'gz',
50                                   COMPRESS => 'gzip -9f',                                   COMPRESS => 'gzip -9f',
51                                  },                                  },
# Line 59  sub MY::postamble Line 62  sub MY::postamble
62  lib/WAIT/Query/Wais.pm: waisquery.y  lib/WAIT/Query/Wais.pm: waisquery.y
63          byacc -P -l waisquery.y;          byacc -P -l waisquery.y;
64          sed -n '2,$$ p' y.tab.pl | ]. "$Config{cpp} $Config{cppminus}" .          sed -n '2,$$ p' y.tab.pl | ]. "$Config{cpp} $Config{cppminus}" .
65            q[ | sed -e '/^# [0-9]/ d' > $@;            q[ | sed -e '/^# [0-9]/ d' > $@ && rm -f y.tab.pl
         rm -f y.tab.pl  
66    
67  TAGS: MANIFEST  TAGS: MANIFEST
68          etags `].$^X.q[ -ane 'print "$$F[0]\n"' MANIFEST`          etags `].$^X.q[ -ane 'print "$$F[0]\n"' MANIFEST`
# Line 86  EOF Line 88  EOF
88  ;  ;
89        
90    $answer = $WAIT::Config->{WAIT_home};    $answer = $WAIT::Config->{WAIT_home};
91    $answer = '' unless $answer && -d $answer;    #$answer = '' unless $answer && -d $answer;
92    $answer = prompt("WAIT database directory?", $answer) unless $use_defaults;    $answer = prompt("WAIT database directory?", $answer) unless $use_defaults;
93        
94    mkpath($answer) unless $answer && -d $answer; # dies if it can't    #mkpath($answer) unless $answer && -d $answer; # dies if it can't
95    $WAIT::Config->{WAIT_home} = $answer;    $WAIT::Config->{WAIT_home} = $answer;
96    
97    
Legend:
Removed from v.13  
changed lines
  Added in v.43
  ViewVC Help
Powered by ViewVC 1.1.26