diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-07-25 12:27:20 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-07-25 12:27:20 +0000 |
| commit | b233458bd1d5037ce4bbbb41fb513e1b68522a4d (patch) | |
| tree | c536cfd69a2b5a6fd972074b496e5ef5473cc69c /pod/podselect.PL | |
| parent | 781b178c230df22350b5995b4bfdfeb294912a39 (diff) | |
| download | perl-b233458bd1d5037ce4bbbb41fb513e1b68522a4d.tar.gz | |
First steps of making builds outside the source
directory possible. These should get us as far
as miniperl, then building DynaLoader falls into
tiny twinkling pieces as MakeMaker knows nothing
of VPATH mindset.
p4raw-id: //depot/cfgperl@3735
Diffstat (limited to 'pod/podselect.PL')
| -rw-r--r-- | pod/podselect.PL | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/pod/podselect.PL b/pod/podselect.PL index 0df830406e..7cff6915bb 100644 --- a/pod/podselect.PL +++ b/pod/podselect.PL @@ -10,13 +10,11 @@ use File::Basename qw(&basename &dirname); # $startperl # to ensure Configure will look for $Config{startperl}. -# This forces PL files to create target in same directory as PL file. -# This is so that make depend always knows where to find PL derivatives. -chdir(dirname($0)); -($file = basename($0)) =~ s/\.PL$//; -$file =~ s/\.pl$// - if ($^O eq 'VMS' or $^O eq 'os2'); # "case-forgiving" +$file = basename($0); +$file =~ s/\.PL$//i; +$file .= '.com' if $^O eq 'VMS'; +chdir("pod") or die "Can't chdir to pod: $!"; open OUT,">$file" or die "Can't create $file: $!"; print "Extracting $file (with variable substitutions)\n"; |