From ab9905e6609a9cb347463da24528dc909d8edc7b Mon Sep 17 00:00:00 2001 From: Slaven Rezic Date: Sun, 16 Nov 2003 21:52:29 +0100 Subject: [PATCH] Re: [perl #24493] install.html not working Message-ID: <87d6bsw0oy.fsf@vran.herceg.de> p4raw-id: //depot/perl@21739 --- installhtml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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"; } -- 1.8.3.1