From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Sun, 17 Mar 1996 10:15:33 +0000 (+0000)
Subject: Use $^O, plus miscellaneous minor bugfixen
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a53f8285af7cb68e70adfa21517e76741eb6fb3a;p=p5sagit%2Fp5-mst-13.2.git

Use $^O, plus miscellaneous minor bugfixen
---

diff --git a/pod/pod2latex.PL b/pod/pod2latex.PL
index bd6df71..34b1faa 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: $!";