summaryrefslogtreecommitdiff
path: root/pod/pod2html.PL
diff options
context:
space:
mode:
authorAndy Dougherty <doughera@lafayette.edu>1998-06-11 08:27:15 -0400
committerGurusamy Sarathy <gsar@cpan.org>1998-06-12 07:06:02 +0000
commitcc13bcb1ef85f61caa4133d3dab4f4f6ef859784 (patch)
treea2a4a2baba9046c655a7545eee579cca732513ae /pod/pod2html.PL
parent51bb6a4662cbf909f899efbfffa066726eaa9c56 (diff)
downloadperl-cc13bcb1ef85f61caa4133d3dab4f4f6ef859784.tar.gz
Re: [PATCH for _66] Makefile.SH problem on dos/djgpp
Message-Id: <Pine.SUN.3.96.980611122249.18493J-100000@newton.phys> p4raw-id: //depot/perl@1122
Diffstat (limited to 'pod/pod2html.PL')
-rw-r--r--pod/pod2html.PL3
1 files changed, 3 insertions, 0 deletions
diff --git a/pod/pod2html.PL b/pod/pod2html.PL
index de36cd7fc9..4eec29c26b 100644
--- a/pod/pod2html.PL
+++ b/pod/pod2html.PL
@@ -2,6 +2,7 @@
use Config;
use File::Basename qw(&basename &dirname);
+use Cwd;
# List explicitly here the variables you want Configure to
# generate. Metaconfig only looks for shell variables, so you
@@ -12,6 +13,7 @@ use File::Basename qw(&basename &dirname);
# 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.
+$origdir = cwd;
chdir dirname($0);
$file = basename($0, '.PL');
$file .= '.com' if $^O eq 'VMS';
@@ -178,3 +180,4 @@ pod2html @ARGV;
close OUT or die "Can't close $file: $!";
chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';
+chdir $origdir;