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

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

branches/CPAN/Makefile.PL revision 19 by ulpfr, Tue May 9 11:29:45 2000 UTC cvs-head/Makefile.PL revision 43 by ulpfr, Fri Dec 29 12:28:53 2000 UTC
# Line 7  Line 7 
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 Apr  9 14:08:50 2000  ## 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 42  WriteMakefile( Line 42  WriteMakefile(
42                                  },                                  },
43                'NAME'         => 'WAIT',                'NAME'         => 'WAIT',
44                'OBJECT'       => join(' ', @objects),                'OBJECT'       => join(' ', @objects),
45  # $Format: "   'VERSION'    => sprintf('%5.3f', ($ProjectMajorVersion$ * 100 + ( $ProjectMinorVersion$-1))/1000),"$                'VERSION_FROM' => 'lib/WAIT.pm',
    'VERSION'    => sprintf('%5.3f', (18 * 100 + ( 1-1))/1000),  
46                'EXE_FILES'    => \@pl_files,                'EXE_FILES'    => \@pl_files,
47                'dist'         => {                'dist'         => {
48                                   PREOP => 'cp README.header README && pod2text lib/WAIT.pm >> README',                                   PREOP => 'cp README.header README && pod2text lib/WAIT.pm >> README',
# Line 89  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.19  
changed lines
  Added in v.43
  ViewVC Help
Powered by ViewVC 1.1.26