develooper Front page | perl.perl5.porters | Postings from November 2003

Re: [perl #24493] install.html not working

Thread Previous | Thread Next
From:
Slaven Rezic
Date:
November 16, 2003 12:05
Subject:
Re: [perl #24493] install.html not working
Message ID:
87d6bsw0oy.fsf@vran.herceg.de
"warrend@tek.com (via RT)" <perlbug-followup@perl.org> writes:

> # New Ticket Created by  warrend@tek.com 
> # Please include the string:  [perl #24493]
> # in the subject line of all future correspondence about this issue. 
> # <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=24493 >
> 
> 
> This is a bug report for perl from warrend@tek.com,
> generated with the help of perlbug 1.34 running under perl v5.8.1.
> 
> 
> -----------------------------------------------------------------
> [Please enter your report here]
> 
> In perl-5.8.1 I tried the install.html target. It started to work and then
> had the error shown below.
> 
> It failed here in installhtml. $^X is ./perl but the current dir is in pod/perlfunc where
> there is no perl
> 
> 
> 415==>          system($^X, $splitter, "../$filename") &&
> 416                 warn "$0: error running '$splitter ../$filename'"
> 417                      ." from $podroot/$dirname";
> 
> I put links from perlfunc and perlipc back up to ../../perl and it then
> worked. That is until it got to doing the index files.
> 
> There it tried to do the destination perlfunc directory which wasn't there
> since the source perlfunc directory was empty. It bombed out because it did
> an open on a directory that wasn't there.
> 
> I am not sure if perlfunc should have been empty or the code is not quite
> right.
> 

I think the better fix is this patch to installhtml:

--- ../bleedperl/installhtml	Wed Apr  2 23:51:39 2003
+++ ./installhtml	Sun Nov 16 20:47:42 2003
@@ -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";
     }

Regards,
        Slaven

-- 
Slaven Rezic - slaven@rezic.de

    tktimex - project time manager
    http://sourceforge.net/projects/ptktools/

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About