diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-03-17 10:15:33 +0000 |
|---|---|---|
| committer | Charles Bailey <bailey@genetics.upenn.edu> | 1996-03-17 10:15:33 +0000 |
| commit | a53f8285af7cb68e70adfa21517e76741eb6fb3a (patch) | |
| tree | d7ecad075bf55c9fbbfdaf2c492616c9f30e87e0 /pod/pod2latex.PL | |
| parent | f27cfbbe46f13a72acc6e868c17715cc0c4d1958 (diff) | |
| download | perl-a53f8285af7cb68e70adfa21517e76741eb6fb3a.tar.gz | |
Use $^O, plus miscellaneous minor bugfixen
Diffstat (limited to 'pod/pod2latex.PL')
| -rw-r--r-- | pod/pod2latex.PL | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/pod/pod2latex.PL b/pod/pod2latex.PL index bd6df71c74..34b1faadba 100644 --- a/pod/pod2latex.PL +++ b/pod/pod2latex.PL @@ -15,8 +15,7 @@ use File::Basename qw(&basename &dirname); chdir(dirname($0)); ($file = basename($0)) =~ s/\.PL$//; $file =~ s/\.pl$// - if ($Config{'osname'} eq 'VMS' or - $Config{'osname'} eq 'OS2'); # "case-forgiving" + if ($^O eq 'VMS' or $^O eq 'os2'); # "case-forgiving" open OUT,">$file" or die "Can't create $file: $!"; |