/[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 76 by laperla, Sat Apr 6 19:00:54 2002 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 14:14:54 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 91  EOF Line 90  EOF
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    
# Line 174  you are finished. Line 173  you are finished.
173    ## write config    ## write config
174    my $configpmdir = MM->catdir('lib', 'WAIT');    my $configpmdir = MM->catdir('lib', 'WAIT');
175    mkpath $configpmdir;    mkpath $configpmdir;
176    my $configpm = MM->catfile('lib', 'WAIT', 'Config.pm/' );    my $configpm = MM->catfile('lib', 'WAIT', 'Config.pm' );
177        
178    open FH, "> $configpm" or die "Couldn't write open $configpm: $!\n";    open FH, "> $configpm" or die "Couldn't write open $configpm: $!\n";
179    print FH qq[\$WAIT::Config = \{\n];    print FH qq[\$WAIT::Config = \{\n];
Legend:
Removed from v.19  
changed lines
  Added in v.76
  ViewVC Help
Powered by ViewVC 1.1.26