develooper Front page | perl.perl5.porters | Postings from April 2001

Re: Finally got a round tuit

Thread Next
From:
H.Merijn Brand
Date:
April 30, 2001 08:49
Subject:
Re: Finally got a round tuit
Message ID:
20010430174425.ABD6.H.M.BRAND@hccnet.nl
Cc'd to p5p, cause of a fundamental choice.

On Mon, 30 Apr 2001 08:18:38 -0500 Jarkko Hietaniemi <jhi@iki.fi> wrote:
> > Try to see if your default cpp can do the test, and see if mine can. As said,
> > I don't know what perl does internally with -P, -DP didn't tell me, but it
> > must not be that hard to find out.
> 
> Somewhere in perl.c, I would imagine.

As a start towards the documented use of -DP:

--- perl.c.old  Mon Apr 30 17:43:55 2001
+++ perl.c      Mon Apr 30 17:43:37 2001
@@ -2615,6 +2615,9 @@
        sv_catpvn(sv, "-I", 2);
        sv_catpv(sv,PRIVLIB_EXP);
 
+       DEBUG_P (PerlIO_printf (Perl_debug_log,
+             "PL_preprocess: (..., '%s', '%s', '%s')\n",
+             scriptname, SvPVX (cpp), SvPVX (sv), CPPMINUS));
 #if defined(MSDOS) || defined(WIN32)
        Perl_sv_setpvf(aTHX_ cmd, "\
 sed %s -e \"/^[^#]/b\" \


l1:/pro/3gl/CPAN/perl-5.7.1/t 114 > perl -DP -P lib/cpp.aux
PL_preprocess: (..., 'lib/cpp.aux', 'cc -E', '-I/pro/lib/perl5/5.7.1')
sed: Cannot find or open file lib/cpp.aux.
Screamer: entering, ptr=0, cnt=0
Screamer: entering: FILE * thinks ptr=0, cnt=0, base=0
Screamer: going to getc, ptr=0, cnt=0

sed ??????

Where are my cppflags? OK, fundamental choice:

 a. Modify perl.c to pass cppflags
 b. Modify cppin in hints to add what's neccacary


-- 
H.Merijn Brand    Amsterdam Perl Mongers (http://www.amsterdam.pm.org/)
using perl-5.6.1, 5.7.1 & 623 on HP-UX 10.20 & 11.00, AIX 4.2, AIX 4.3,
     WinNT 4, Win2K pro & WinCE 2.11 often with Tk800.022 &/| DBD-Unify
ftp://ftp.funet.fi/pub/languages/perl/CPAN/authors/id/H/HM/HMBRAND/


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