diff options
| author | Slaven Rezic <slaven@rezic.de> | 2003-11-16 21:52:29 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-11-17 08:52:52 +0000 |
| commit | ab9905e6609a9cb347463da24528dc909d8edc7b (patch) | |
| tree | 07920cdbcc0e80765f0fa1abc1a56b2ac8d99dc9 | |
| parent | e6c44d01862bb7fd179fb181d61e7d146e8f1fba (diff) | |
| download | perl-ab9905e6609a9cb347463da24528dc909d8edc7b.tar.gz | |
Re: [perl #24493] install.html not working
Message-ID: <87d6bsw0oy.fsf@vran.herceg.de>
p4raw-id: //depot/perl@21739
| -rwxr-xr-x | installhtml | 3 |
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"; } |