From: Slaven Rezic <slaven@rezic.de>
Date: Sun, 16 Nov 2003 20:52:29 +0000 (+0100)
Subject: Re: [perl #24493] install.html not working
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ab9905e6609a9cb347463da24528dc909d8edc7b;p=p5sagit%2Fp5-mst-13.2.git

Re: [perl #24493] install.html not working
Message-ID: <87d6bsw0oy.fsf@vran.herceg.de>

p4raw-id: //depot/perl@21739
---

diff --git a/installhtml b/installhtml
index 919346a..967f0c6 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";
     }