diff options
author | Nicholas Clark <nick@ccl4.org> | 2003-03-27 22:37:35 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-30 15:16:16 +0000 |
commit | fd4f854df5d0020860d508f73c031f161d78c688 (patch) | |
tree | 6d9caca0bc1b9b57a7bd4e3921a2bf92cf875fb2 /dump.c | |
parent | eb68ce95021ac7d7e0cda024886554144d93a8a8 (diff) | |
download | perl-fd4f854df5d0020860d508f73c031f161d78c688.tar.gz |
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 <pthread.h> 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 <nick@unfortu.net>
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..)
Diffstat (limited to 'dump.c')
-rw-r--r-- | dump.c | 12 |
1 files changed, 7 insertions, 5 deletions
@@ -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"); |