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 |
## |
## |
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', |
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 |
|
|