summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSlaven Rezic <slaven@rezic.de>2003-11-16 21:52:29 +0100
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2003-11-17 08:52:52 +0000
commitab9905e6609a9cb347463da24528dc909d8edc7b (patch)
tree07920cdbcc0e80765f0fa1abc1a56b2ac8d99dc9
parente6c44d01862bb7fd179fb181d61e7d146e8f1fba (diff)
downloadperl-ab9905e6609a9cb347463da24528dc909d8edc7b.tar.gz
Re: [perl #24493] install.html not working
Message-ID: <87d6bsw0oy.fsf@vran.herceg.de> p4raw-id: //depot/perl@21739
-rwxr-xr-xinstallhtml3
1 files changed, 2 insertions, 1 deletions
diff --git a/installhtml b/installhtml
index 919346a86b..967f0c6d1e 100755
--- a/installhtml
+++ b/installhtml
@@ -392,6 +392,7 @@ sub split_on_item {
print "splitting files by item.\n" if $verbose && $#splititem >= 0;
$pwd = getcwd();
my $splitter = absolute_path($pwd, "$splitpod/splitpod");
+ my $perl = absolute_path($pwd, $^X);
foreach my $pod (@splititem) {
# figure out the directory to split into
$pod =~ s,^([^/]*)$,/$1,;
@@ -412,7 +413,7 @@ sub split_on_item {
die "$0: error changing to directory $podroot/$dirname: $!\n";
die "$splitter not found. Use '-splitpod dir' option.\n"
unless -f $splitter;
- system($^X, $splitter, "../$filename") &&
+ system($perl, $splitter, "../$filename") &&
warn "$0: error running '$splitter ../$filename'"
." from $podroot/$dirname";
}