From fd4f854df5d0020860d508f73c031f161d78c688 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Thu, 27 Mar 2003 22:37:35 +0000 Subject: Integrate: [ 19074] Missing final \n. [ 19076] Craig Berry: remove extra (. [ 19077] Feeding illegal QP (like \x80) to this ./perl -Ilib -wne 'use PerlIO::via::QuotedPrint;BEGIN{binmode(STDIN, ":via(QuotedPrint)")};print' caused a coredump in av_length() <- nextargv() because the av was NULL. I don't know that returning Nullfp is the best thing to do, but it dodges the segfault and introduces no test failures. [ 19078] It seems that in Tru64 V5 gcc cannot be used to compile a threaded Perl because explicitly checks for supported compilers (gcc not being one of them). This is not so bad since the system C compiler is always there. [ 19079] Subject: [DOCPATCH] Re: [PATCH] Re: [perl #21614] 5.8.0 Unbalanced string table refcount Date: Thu, 27 Mar 2003 22:37:35 +0000 Message-ID: <20030327223735.GD277@Bagpuss.unfortu.net> [ 19080] Minor rephrasing in perlopentut, noticed by Bob Wilkinson (RT [perl #21725]) [ 19081] Subject: [unPATCH] Re: Smoke [5.8.1] 19076 FAIL(F) openbsd 3.2 (i386/1 cpu) From: Nicholas Clark Date: Sat, 29 Mar 2003 18:58:09 +0000 Message-ID: <20030329185807.GL274@Bagpuss.unfortu.net> [ 19082] IRIX 5.3 can have PF_LINK defined to be AF_LINK but not defined AF_LINK. [ 19084] gethostbyname('localhost') is not that portable. inet_aton('localhost') in IRIX 5.3 returned an undef, which in turn made pack_sockaddr_in to barf on zero length in_addr. [ 19085] In IRIX 5.3 being too POSIXly hides the struct timespec. [ 19086] In IRIX 5.3 the cc is awfully confused about the prototype of select(). [ 19087] In IRIX 5.3 turn off some of the warnings that cannot really be helped (e.g. warnings coming from system headers, or linker warnings during Configure). [ 19088] Another victim of IRIX 5.3's inability to resolve 'localhost' as the test expects. [ 19089] Re-sort MANIFEST (LC_ALL=C sort -fo MANIFEST MANIFEST) [ 19090] Ending strings is customary (typo from #19084). [ 19091] Not all compilers like #ifdefs within cpp macros (follow-up on #19086) [ 19092] IRIX 5.3 update. p4raw-link: @19092 on //depot/perl: 271230c22b8c23953affd712b07d1ecad698e3ec p4raw-link: @19091 on //depot/perl: dc4c69d9328dff74d38ec5b2dbf795d4f1643b34 p4raw-link: @19090 on //depot/perl: e0975c9c543c721641bc47684748a204d8333340 p4raw-link: @19089 on //depot/perl: 28701729d99837fd83923aadc4d580bc9e52a252 p4raw-link: @19088 on //depot/perl: 64971c1d302660727458d7d7a85adcd36226e1aa p4raw-link: @19087 on //depot/perl: e0561f8bdb3c55e652ac26501ebb98aed004197e p4raw-link: @19086 on //depot/perl: 4e80e7c5725665b3bafef4fcead53e20131b5369 p4raw-link: @19085 on //depot/perl: 368e8af92165901b8847db2c456b3930fb8e583c p4raw-link: @19084 on //depot/perl: ef5a6dd776ac4bf49f73d33c2c15049c102661c0 p4raw-link: @19082 on //depot/perl: 3b8fd1d50fa2d1e7d187a495bdbd1c1584f6a531 p4raw-link: @19081 on //depot/perl: 05671074223592cab8892e565a2b59d3f032bba8 p4raw-link: @19080 on //depot/perl: 00dcde61acd9f4256cd0fce5c72bb9ee25e562b3 p4raw-link: @19079 on //depot/perl: 19dbb8f173af2c7e80a0837871d15e631aacc74c p4raw-link: @19078 on //depot/perl: 700a71f52a8b687cd8507393838281605745411c p4raw-link: @19077 on //depot/perl: 5c501b37d7fe83b36852f8ad910f17d67e792406 p4raw-link: @19076 on //depot/maint-5.8/perl: eb68ce95021ac7d7e0cda024886554144d93a8a8 p4raw-link: @19074 on //depot/perl: 6d80e9d0fed5aaa368313563b0a51ac19967da35 p4raw-id: //depot/maint-5.8/perl@19093 p4raw-branched: from //depot/perl@19076 'branch in' ext/Time/HiRes/hints/irix.pl p4raw-integrated: from //depot/perl@19076 'copy in' hints/irix_5.sh (@5266..) ext/Socket/Socket.xs (@15141..) ext/Socket/Socket.t lib/Net/hostent.t (@16882..) lib/Attribute/Handlers/Changes (@17978..) pod/perlopentut.pod (@18135..) hints/dec_osf.sh (@18864..) pp_sys.c (@18958..) doio.c (@19036..) 'merge in' README.irix (@18064..) pod/perlport.pod (@18180..) dump.c (@18801..) pod/perlapi.pod (@18873..) sv.h (@18921..) pod/perlfunc.pod (@19010..) README.tru64 (@19028..) MANIFEST (@19065..) --- dump.c | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'dump.c') diff --git a/dump.c b/dump.c index 9f75213344..2e76eeeb6c 100644 --- a/dump.c +++ b/dump.c @@ -73,7 +73,7 @@ Perl_dump_sub(pTHX_ GV *gv) SV *sv = sv_newmortal(); gv_fullname3(sv, gv, Nullch); - Perl_dump_indent(aTHX_ 0, Perl_debug_log, "\nSUB %"SVf" = ", sv); + Perl_dump_indent(aTHX_ 0, Perl_debug_log, "\nSUB %s = ", SvPVX(sv)); if (CvXSUB(GvCV(gv))) Perl_dump_indent(aTHX_ 0, Perl_debug_log, "(xsub 0x%"UVxf" %d)\n", PTR2UV(CvXSUB(GvCV(gv))), @@ -90,7 +90,7 @@ Perl_dump_form(pTHX_ GV *gv) SV *sv = sv_newmortal(); gv_fullname3(sv, gv, Nullch); - Perl_dump_indent(aTHX_ 0, Perl_debug_log, "\nFORMAT %"SVf" = ", sv); + Perl_dump_indent(aTHX_ 0, Perl_debug_log, "\nFORMAT %s = ", SvPVX(sv)); if (CvROOT(GvFORM(gv))) op_dump(CvROOT(GvFORM(gv))); else @@ -633,10 +633,11 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, OP *o) #else if (cSVOPo->op_sv) { SV *tmpsv = NEWSV(0,0); + STRLEN n_a; ENTER; SAVEFREESV(tmpsv); gv_fullname3(tmpsv, (GV*)cSVOPo->op_sv, Nullch); - Perl_dump_indent(aTHX_ level, file, "GV = %"SVf"\n", tmpsv); + Perl_dump_indent(aTHX_ level, file, "GV = %s\n", SvPV(tmpsv, n_a)); LEAVE; } else @@ -732,10 +733,10 @@ Perl_gv_dump(pTHX_ GV *gv) sv = sv_newmortal(); PerlIO_printf(Perl_debug_log, "{\n"); gv_fullname3(sv, gv, Nullch); - Perl_dump_indent(aTHX_ 1, Perl_debug_log, "GV_NAME = %"SVf"", sv); + Perl_dump_indent(aTHX_ 1, Perl_debug_log, "GV_NAME = %s", SvPVX(sv)); if (gv != GvEGV(gv)) { gv_efullname3(sv, GvEGV(gv), Nullch); - Perl_dump_indent(aTHX_ 1, Perl_debug_log, "-> %"SVf"", sv); + Perl_dump_indent(aTHX_ 1, Perl_debug_log, "-> %s", SvPVX(sv)); } PerlIO_putc(Perl_debug_log, '\n'); Perl_dump_indent(aTHX_ 0, Perl_debug_log, "}\n"); @@ -955,6 +956,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo char *s; U32 flags; U32 type; + STRLEN n_a; if (!sv) { Perl_dump_indent(aTHX_ level, file, "SV = 0\n"); -- cgit v1.2.1