THERE print JOURNAL join qq[\n<BR>\n], @INC, qq[</BLOCKQUOTE></CODE>\n<HR>\n]; my $make_target = ($ArgUh{'target'})? [ $ArgUh{'target'} ] : [ 'test','pure_install' ]; @StepWise = @$make_target; $nl = "\n"; my $abs_libloc = rel2abs( $rel_libloc,$start_Dir ); $ENV{PERL5LIB} = qq[$abs_libloc:]. $ENV{PERL5LIB}; my $tar_exe = ($ENV{'DOCUMENT_ROOT'})? q[tar] : q[D:\\Cygwin\\bin\\tar.exe]; my $perl_exe = UnDOS($^X); my $tar_cmd = q[xf]; my $makeMakefile_cmd = qq[Makefile.PL LIB=$abs_libloc ]. qq[INSTALLMAN1DIR=$abs_libloc/man/man1 ]. qq[INSTALLMAN3DIR=$abs_libloc/man/man3]; my $make_exe = "$start_Dir/pmake"; my $distdir = $tmpDir .q[/]. basename( $Source_Archive ); $distdir = substr( $distdir,0, rindex($distdir,'.') ); unless ($ArgUh{'target'} and ( $ArgUh{'target'} eq 'clean' or $ArgUh{'target'} =~/dist/)) { (system( $tar_exe, $tar_cmd, $Source_Archive, qq[-C], ReadiP($tmpDir))) and die "tarball unrolling failed: $!"; print JOURNAL qq[\n The distro dir just created by ], qq[tar is: $distdir\n]; chdir $distdir or die $!; # HERE THE making of the Makefile HAPPENS @MMr = `$perl_exe -I$abs_libloc $makeMakefile_cmd`; } else { chdir $distdir or die qq[\nUnable to get into \$distdir ], qq["$distdir":\n$!]; } my ($rtv, $cmm); $rtv = 0; # vvvvv while (($cmm=shift @StepWise) and defined($rtv)) { $rtv = open (PIPE, "$make_exe $cmm 2>&1 |"); if (defined $rtv) { push @Make_Msgs, qq[\n\nIn process $rtv, ]. qq[got these messages back:\n\n]; foreach my $proc_line () { push @Make_Msgs, $proc_line; } } else { warn qq[\nWhoa, we have not got a process going ], qq[to get the pmake invocations working: $?]; } close( PIPE ); } print LOG qq[\nDone. Here is the make-Makefile log:\n], $nl,'-' x 50,$nl, @MMr; print JOURNAL $nl, ' Done. Here is the make-Makefile log:
', $nl; print JOURNAL @MMr; print LOG $nl,'-' x 50,$nl,@Make_Msgs; print JOURNAL $nl,'Here is the ', 'output from the make command sequence:
',$nl; print JOURNAL @Make_Msgs; print JOURNAL "