summaryrefslogtreecommitdiff
path: root/dump.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2003-03-27 22:37:35 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2003-03-30 15:16:16 +0000
commitfd4f854df5d0020860d508f73c031f161d78c688 (patch)
tree6d9caca0bc1b9b57a7bd4e3921a2bf92cf875fb2 /dump.c
parenteb68ce95021ac7d7e0cda024886554144d93a8a8 (diff)
downloadperl-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.c12
1 files changed, 7 insertions, 5 deletions
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");