This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [perl #24493] install.html not working
authorSlaven Rezic <slaven@rezic.de>
Sun, 16 Nov 2003 20:52:29 +0000 (21:52 +0100)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 17 Nov 2003 08:52:52 +0000 (08:52 +0000)
Message-ID: <87d6bsw0oy.fsf@vran.herceg.de>

p4raw-id: //depot/perl@21739

installhtml

index 919346a..967f0c6 100755 (executable)
@@ -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";
     }