Change 18881 by [EMAIL PROTECTED] on 2003/03/10 16:58:22
Integrate:
[ 17842]
printf argument mismatch in Perl_deb_stack_all() from change #17718
[ 18456]
Subject: [PATCH] %_ (was Re: [PATCH] operation on `PL_na' may be undefined)
From: Nicholas Clark <[EMAIL PROTECTED]>
Date: Thu, 26 Dec 2002 21:16:27 +0000
Message-ID: <[EMAIL PROTECTED]>
[ 18643]
Detypo.
Affected files ...
... //depot/maint-5.8/perl/cop.h#7 integrate
... //depot/maint-5.8/perl/deb.c#5 integrate
... //depot/maint-5.8/perl/doio.c#8 integrate
... //depot/maint-5.8/perl/dump.c#14 integrate
... //depot/maint-5.8/perl/ext/Data/Dumper/Dumper.xs#5 integrate
... //depot/maint-5.8/perl/gv.c#7 integrate
... //depot/maint-5.8/perl/op.c#17 integrate
... //depot/maint-5.8/perl/pad.c#4 integrate
... //depot/maint-5.8/perl/perl.c#20 integrate
... //depot/maint-5.8/perl/pp_ctl.c#17 integrate
... //depot/maint-5.8/perl/pp_hot.c#15 integrate
... //depot/maint-5.8/perl/pp_sort.c#4 integrate
... //depot/maint-5.8/perl/pp_sys.c#15 integrate
... //depot/maint-5.8/perl/sv.c#33 integrate
... //depot/maint-5.8/perl/toke.c#13 integrate
... //depot/maint-5.8/perl/universal.c#5 integrate
... //depot/maint-5.8/perl/utf8.c#5 integrate
Differences ...
==== //depot/maint-5.8/perl/cop.h#7 (text) ====
Index: perl/cop.h
--- perl/cop.h#6~18804~ Sun Mar 2 08:22:35 2003
+++ perl/cop.h Mon Mar 10 08:58:22 2003
@@ -6,9 +6,9 @@
* License or the Artistic License, as specified in the README file.
*
* Control ops (cops) are one of the three ops OP_NEXTSTATE, OP_DBSTATE,
- * and OP_SETSTATE that (loosely speaking) separate statements. They hold
- * imformation important for lexical state and error reporting. At run
- * time, PL_curcop is set to point to the most recently executed cop,
+ * and OP_SETSTATE that (loosely speaking) are separate statements.
+ * They hold information important for lexical state and error reporting.
+ * At run time, PL_curcop is set to point to the most recently executed cop,
* and thus can be used to determine our current state.
*/
==== //depot/maint-5.8/perl/deb.c#5 (text) ====
Index: perl/deb.c
--- perl/deb.c#4~18808~ Sun Mar 2 13:29:38 2003
+++ perl/deb.c Mon Mar 10 08:58:22 2003
@@ -191,7 +191,7 @@
else
si_name = si_names[si_name_ix];
PerlIO_printf(Perl_debug_log, "STACK %"IVdf": %s\n",
- si_ix, si_name);
+ (IV)si_ix, si_name);
for (ix=0; ix<=si->si_cxix; ix++) {
==== //depot/maint-5.8/perl/doio.c#8 (text) ====
Index: perl/doio.c
--- perl/doio.c#7~18804~ Sun Mar 2 08:22:35 2003
+++ perl/doio.c Mon Mar 10 08:58:22 2003
@@ -773,8 +773,8 @@
{
if (ckWARN_d(WARN_INPLACE))
Perl_warner(aTHX_ packWARN(WARN_INPLACE),
- "Can't do inplace edit: %s would not be unique",
- SvPVX(sv));
+ "Can't do inplace edit: %"SVf" would not be unique",
+ sv);
do_close(gv,FALSE);
continue;
}
@@ -784,8 +784,8 @@
if (PerlLIO_rename(PL_oldname,SvPVX(sv)) < 0) {
if (ckWARN_d(WARN_INPLACE))
Perl_warner(aTHX_ packWARN(WARN_INPLACE),
- "Can't rename %s to %s: %s, skipping file",
- PL_oldname, SvPVX(sv), Strerror(errno) );
+ "Can't rename %s to %"SVf": %s, skipping file",
+ PL_oldname, sv, Strerror(errno) );
do_close(gv,FALSE);
continue;
}
@@ -800,8 +800,8 @@
if (link(PL_oldname,SvPVX(sv)) < 0) {
if (ckWARN_d(WARN_INPLACE))
Perl_warner(aTHX_ packWARN(WARN_INPLACE),
- "Can't rename %s to %s: %s, skipping file",
- PL_oldname, SvPVX(sv), Strerror(errno) );
+ "Can't rename %s to %"SVf": %s, skipping file",
+ PL_oldname, sv, Strerror(errno) );
do_close(gv,FALSE);
continue;
}
==== //depot/maint-5.8/perl/dump.c#14 (text) ====
Index: perl/dump.c
--- perl/dump.c#13~18804~ Sun Mar 2 08:22:35 2003
+++ perl/dump.c Mon Mar 10 08:58:22 2003
@@ -73,7 +73,7 @@
SV *sv = sv_newmortal();
gv_fullname3(sv, gv, Nullch);
- Perl_dump_indent(aTHX_ 0, Perl_debug_log, "\nSUB %s = ", SvPVX(sv));
+ Perl_dump_indent(aTHX_ 0, Perl_debug_log, "\nSUB %"SVf" = ", 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 @@
SV *sv = sv_newmortal();
gv_fullname3(sv, gv, Nullch);
- Perl_dump_indent(aTHX_ 0, Perl_debug_log, "\nFORMAT %s = ", SvPVX(sv));
+ Perl_dump_indent(aTHX_ 0, Perl_debug_log, "\nFORMAT %"SVf" = ", sv);
if (CvROOT(GvFORM(gv)))
op_dump(CvROOT(GvFORM(gv)));
else
@@ -633,11 +633,10 @@
#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 = %s\n", SvPV(tmpsv, n_a));
+ Perl_dump_indent(aTHX_ level, file, "GV = %"SVf"\n", tmpsv);
LEAVE;
}
else
@@ -733,10 +732,10 @@
sv = sv_newmortal();
PerlIO_printf(Perl_debug_log, "{\n");
gv_fullname3(sv, gv, Nullch);
- Perl_dump_indent(aTHX_ 1, Perl_debug_log, "GV_NAME = %s", SvPVX(sv));
+ Perl_dump_indent(aTHX_ 1, Perl_debug_log, "GV_NAME = %"SVf"", sv);
if (gv != GvEGV(gv)) {
gv_efullname3(sv, GvEGV(gv), Nullch);
- Perl_dump_indent(aTHX_ 1, Perl_debug_log, "-> %s", SvPVX(sv));
+ Perl_dump_indent(aTHX_ 1, Perl_debug_log, "-> %"SVf"", sv);
}
PerlIO_putc(Perl_debug_log, '\n');
Perl_dump_indent(aTHX_ 0, Perl_debug_log, "}\n");
@@ -956,7 +955,6 @@
char *s;
U32 flags;
U32 type;
- STRLEN n_a;
if (!sv) {
Perl_dump_indent(aTHX_ level, file, "SV = 0\n");
@@ -1293,7 +1291,7 @@
break;
case SVt_PVCV:
if (SvPOK(sv))
- Perl_dump_indent(aTHX_ level, file, " PROTOTYPE = \"%s\"\n",
SvPV(sv,n_a));
+ Perl_dump_indent(aTHX_ level, file, " PROTOTYPE = \"%"SVf"\"\n", sv);
/* FALL THROUGH */
case SVt_PVFM:
do_hv_dump(level, file, " COMP_STASH", CvSTASH(sv));
@@ -1429,7 +1427,6 @@
AV *padlist, *comppad;
CV *cv;
SV *sv;
- STRLEN n_a;
if (CopSTASH_eq(PL_curcop, PL_debstash) && !DEBUG_J_TEST_)
return 0;
@@ -1444,7 +1441,7 @@
if (cGVOPo_gv) {
sv = NEWSV(0,0);
gv_fullname3(sv, cGVOPo_gv, Nullch);
- PerlIO_printf(Perl_debug_log, "(%s)", SvPV(sv, n_a));
+ PerlIO_printf(Perl_debug_log, "(%s)", SvPV_nolen(sv));
SvREFCNT_dec(sv);
}
else
==== //depot/maint-5.8/perl/ext/Data/Dumper/Dumper.xs#5 (text) ====
Index: perl/ext/Data/Dumper/Dumper.xs
--- perl/ext/Data/Dumper/Dumper.xs#4~18743~ Tue Feb 18 06:12:11 2003
+++ perl/ext/Data/Dumper/Dumper.xs Mon Mar 10 08:58:22 2003
@@ -255,8 +255,7 @@
i = perl_call_method(SvPVX(freezer), G_EVAL|G_SCALAR);
SPAGAIN;
if (SvTRUE(ERRSV))
- warn("WARNING(Freezer method call failed): %s",
- SvPVX(ERRSV));
+ warn("WARNING(Freezer method call failed): %"SVf"", ERRSV);
else if (i)
val = newSVsv(POPs);
PUTBACK; FREETMPS; LEAVE;
==== //depot/maint-5.8/perl/gv.c#7 (text) ====
Index: perl/gv.c
--- perl/gv.c#6~18804~ Sun Mar 2 08:22:35 2003
+++ perl/gv.c Mon Mar 10 08:58:22 2003
@@ -261,8 +261,8 @@
HV* basestash = gv_stashsv(sv, FALSE);
if (!basestash) {
if (ckWARN(WARN_MISC))
- Perl_warner(aTHX_ packWARN(WARN_MISC), "Can't locate package %s
for @%s::ISA",
- SvPVX(sv), HvNAME(stash));
+ Perl_warner(aTHX_ packWARN(WARN_MISC), "Can't locate package
%"SVf" for @%s::ISA",
+ sv, HvNAME(stash));
continue;
}
gv = gv_fetchmeth(basestash, name, len,
@@ -1351,21 +1351,19 @@
/* GvSV contains the name of the method. */
GV *ngv = Nullgv;
- DEBUG_o( Perl_deb(aTHX_ "Resolving method `%.256s' for overloaded `%s'
in package `%.256s'\n",
- SvPV_nolen(GvSV(gv)), cp, HvNAME(stash)) );
+ DEBUG_o( Perl_deb(aTHX_ "Resolving method `%.256"SVf"' for overloaded
`%s' in package `%.256s'\n",
+ GvSV(gv), cp, HvNAME(stash)) );
if (!SvPOK(GvSV(gv))
|| !(ngv = gv_fetchmethod_autoload(stash, SvPVX(GvSV(gv)),
FALSE)))
{
/* Can be an import stub (created by `can'). */
- if (GvCVGEN(gv)) {
- Perl_croak(aTHX_ "Stub found while resolving method `%.256s'
overloading `%s' in package `%.256s'",
- (SvPOK(GvSV(gv)) ? SvPVX(GvSV(gv)) : "???" ),
- cp, HvNAME(stash));
- } else
- Perl_croak(aTHX_ "Can't resolve method `%.256s' overloading
`%s' in package `%.256s'",
- (SvPOK(GvSV(gv)) ? SvPVX(GvSV(gv)) : "???" ),
- cp, HvNAME(stash));
+ SV *gvsv = GvSV(gv);
+ const char *name = SvPOK(gvsv) ? SvPVX(gvsv) : "???";
+ Perl_croak(aTHX_ "%s method `%.256s' overloading `%s' in package
`%.256s'",
+ (GvCVGEN(gv) ? "Stub found while resolving"
+ : "Can't resolve"),
+ name, cp, HvNAME(stash));
}
cv = GvCV(gv = ngv);
}
==== //depot/maint-5.8/perl/op.c#17 (text) ====
Index: perl/op.c
--- perl/op.c#16~18866~ Sun Mar 9 05:59:01 2003
+++ perl/op.c Mon Mar 10 08:58:22 2003
@@ -152,8 +152,8 @@
S_no_bareword_allowed(pTHX_ OP *o)
{
qerror(Perl_mess(aTHX_
- "Bareword \"%s\" not allowed while \"strict subs\" in use",
- SvPV_nolen(cSVOPo_sv)));
+ "Bareword \"%"SVf"\" not allowed while \"strict subs\" in use",
+ cSVOPo_sv));
}
/* "register" allocation */
@@ -3950,7 +3950,7 @@
if (name)
Perl_sv_catpvf(aTHX_ msg, " sub %"SVf, name);
if (SvPOK(cv))
- Perl_sv_catpvf(aTHX_ msg, " (%s)", SvPVX(cv));
+ Perl_sv_catpvf(aTHX_ msg, " (%"SVf")", (SV *)cv);
sv_catpv(msg, " vs ");
if (p)
Perl_sv_catpvf(aTHX_ msg, "(%s)", p);
@@ -4272,7 +4272,7 @@
else {
/* force display of errors found but not reported */
sv_catpv(ERRSV, not_safe);
- Perl_croak(aTHX_ "%s", SvPVx(ERRSV, n_a));
+ Perl_croak(aTHX_ "%"SVf, ERRSV);
}
}
}
@@ -6146,8 +6146,8 @@
continue;
default:
oops:
- Perl_croak(aTHX_ "Malformed prototype for %s: %s",
- gv_ename(namegv), SvPV((SV*)cv, n_a));
+ Perl_croak(aTHX_ "Malformed prototype for %s: %"SVf,
+ gv_ename(namegv), cv);
}
}
else
@@ -6356,8 +6356,8 @@
SV *sv = sv_newmortal();
gv_efullname3(sv, gv, Nullch);
Perl_warner(aTHX_ packWARN(WARN_PROTOTYPE),
- "%s() called too early to check prototype",
- SvPV_nolen(sv));
+ "%"SVf"() called too early to check prototype",
+ sv);
}
}
else if (o->op_next->op_type == OP_READLINE
==== //depot/maint-5.8/perl/pad.c#4 (text) ====
Index: perl/pad.c
--- perl/pad.c#3~18804~ Sun Mar 2 08:22:35 2003
+++ perl/pad.c Mon Mar 10 08:58:22 2003
@@ -933,7 +933,7 @@
if ((sv = svp[off]) && sv != &PL_sv_undef
&& !SvFAKE(sv) && ckWARN_d(WARN_INTERNAL))
Perl_warner(aTHX_ packWARN(WARN_INTERNAL),
- "%s never introduced", SvPVX(sv));
+ "%"SVf" never introduced", sv);
}
}
/* "Deintroduce" my variables that are leaving with this scope. */
@@ -1187,21 +1187,21 @@
if (namesv) {
if (SvFAKE(namesv))
Perl_dump_indent(aTHX_ level+1, file,
- "%2d. 0x%"UVxf"<%lu> FAKE \"%s\"\n",
+ "%2d. 0x%"UVxf"<%lu> FAKE \"%"SVf"\"\n",
(int) ix,
PTR2UV(ppad[ix]),
(unsigned long) (ppad[ix] ? SvREFCNT(ppad[ix]) : 0),
- SvPVX(namesv)
+ namesv
);
else
Perl_dump_indent(aTHX_ level+1, file,
- "%2d. 0x%"UVxf"<%lu> (%lu,%lu) \"%s\"\n",
+ "%2d. 0x%"UVxf"<%lu> (%lu,%lu) \"%"SVf"\"\n",
(int) ix,
PTR2UV(ppad[ix]),
(unsigned long) (ppad[ix] ? SvREFCNT(ppad[ix]) : 0),
(unsigned long)I_32(SvNVX(namesv)),
(unsigned long)SvIVX(namesv),
- SvPVX(namesv)
+ namesv
);
}
else if (full) {
==== //depot/maint-5.8/perl/perl.c#20 (text) ====
Index: perl/perl.c
--- perl/perl.c#19~18877~ Sun Mar 9 23:20:13 2003
+++ perl/perl.c Mon Mar 10 08:58:22 2003
@@ -4071,7 +4071,6 @@
atsv = ERRSV;
(void)SvPV(atsv, len);
if (len) {
- STRLEN n_a;
PL_curcop = &PL_compiling;
CopLINE_set(PL_curcop, oldline);
if (paramList == PL_beginav)
@@ -4085,7 +4084,7 @@
while (PL_scopestack_ix > oldscope)
LEAVE;
JMPENV_POP;
- Perl_croak(aTHX_ "%s", SvPVx(atsv, n_a));
+ Perl_croak(aTHX_ "%"SVf"", atsv);
}
break;
case 1:
==== //depot/maint-5.8/perl/pp_ctl.c#17 (text) ====
Index: perl/pp_ctl.c
--- perl/pp_ctl.c#16~18804~ Sun Mar 2 08:22:35 2003
+++ perl/pp_ctl.c Mon Mar 10 08:58:22 2003
@@ -1842,7 +1842,7 @@
/* Unassume the success we assumed earlier. */
SV *nsv = cx->blk_eval.old_namesv;
(void)hv_delete(GvHVn(PL_incgv), SvPVX(nsv), SvCUR(nsv), G_DISCARD);
- DIE(aTHX_ "%s did not return a true value", SvPVX(nsv));
+ DIE(aTHX_ "%"SVf" did not return a true value", nsv);
}
break;
case CXt_FORMAT:
@@ -2135,7 +2135,7 @@
goto retry;
tmpstr = sv_newmortal();
gv_efullname3(tmpstr, gv, Nullch);
- DIE(aTHX_ "Goto undefined subroutine &%s",SvPVX(tmpstr));
+ DIE(aTHX_ "Goto undefined subroutine &%"SVf"",tmpstr);
}
DIE(aTHX_ "Goto undefined subroutine");
}
@@ -3452,7 +3452,7 @@
/* Unassume the success we assumed earlier. */
SV *nsv = cx->blk_eval.old_namesv;
(void)hv_delete(GvHVn(PL_incgv), SvPVX(nsv), SvCUR(nsv), G_DISCARD);
- retop = Perl_die(aTHX_ "%s did not return a true value", SvPVX(nsv));
+ retop = Perl_die(aTHX_ "%"SVf" did not return a true value", nsv);
/* die_where() did LEAVE, or we won't be here */
}
else {
==== //depot/maint-5.8/perl/pp_hot.c#15 (text) ====
Index: perl/pp_hot.c
--- perl/pp_hot.c#14~18804~ Sun Mar 2 08:22:35 2003
+++ perl/pp_hot.c Mon Mar 10 08:58:22 2003
@@ -2590,7 +2590,7 @@
else {
sub_name = sv_newmortal();
gv_efullname3(sub_name, gv, Nullch);
- DIE(aTHX_ "Undefined subroutine &%s called", SvPVX(sub_name));
+ DIE(aTHX_ "Undefined subroutine &%"SVf" called", sub_name);
}
}
if (!cv)
@@ -2912,8 +2912,8 @@
else {
SV* tmpstr = sv_newmortal();
gv_efullname3(tmpstr, CvGV(cv), Nullch);
- Perl_warner(aTHX_ packWARN(WARN_RECURSION), "Deep recursion on subroutine
\"%s\"",
- SvPVX(tmpstr));
+ Perl_warner(aTHX_ packWARN(WARN_RECURSION), "Deep recursion on subroutine
\"%"SVf"\"",
+ tmpstr);
}
}
@@ -2929,7 +2929,7 @@
SV *sv;
if (SvROK(elemsv) && !SvGAMAGIC(elemsv) && ckWARN(WARN_MISC))
- Perl_warner(aTHX_ packWARN(WARN_MISC), "Use of reference \"%s\" as array
index", SvPV_nolen(elemsv));
+ Perl_warner(aTHX_ packWARN(WARN_MISC), "Use of reference \"%"SVf"\" as array
index", elemsv);
if (elem > 0)
elem -= PL_curcop->cop_arybase;
if (SvTYPE(av) != SVt_PVAV)
==== //depot/maint-5.8/perl/pp_sort.c#4 (text) ====
Index: perl/pp_sort.c
--- perl/pp_sort.c#3~18804~ Sun Mar 2 08:22:35 2003
+++ perl/pp_sort.c Mon Mar 10 08:58:22 2003
@@ -1455,8 +1455,8 @@
else if (gv) {
SV *tmpstr = sv_newmortal();
gv_efullname3(tmpstr, gv, Nullch);
- DIE(aTHX_ "Undefined sort subroutine \"%s\" called",
- SvPVX(tmpstr));
+ DIE(aTHX_ "Undefined sort subroutine \"%"SVf"\" called",
+ tmpstr);
}
else {
DIE(aTHX_ "Undefined subroutine in sort");
==== //depot/maint-5.8/perl/pp_sys.c#15 (text) ====
Index: perl/pp_sys.c
--- perl/pp_sys.c#14~18804~ Sun Mar 2 08:22:35 2003
+++ perl/pp_sys.c Mon Mar 10 08:58:22 2003
@@ -762,7 +762,6 @@
char *methname;
int how = PERL_MAGIC_tied;
U32 items;
- STRLEN n_a;
varsv = *++MARK;
switch(SvTYPE(varsv)) {
@@ -809,8 +808,8 @@
*/
stash = gv_stashsv(*MARK, FALSE);
if (!stash || !(gv = gv_fetchmethod(stash, methname))) {
- DIE(aTHX_ "Can't locate object method \"%s\" via package \"%s\"",
- methname, SvPV(*MARK,n_a));
+ DIE(aTHX_ "Can't locate object method \"%s\" via package \"%"SVf"\"",
+ methname, *MARK);
}
ENTER;
PUSHSTACKi(PERLSI_MAGIC);
==== //depot/maint-5.8/perl/sv.c#33 (text) ====
Index: perl/sv.c
--- perl/sv.c#32~18866~ Sun Mar 9 05:59:01 2003
+++ perl/sv.c Mon Mar 10 08:58:22 2003
@@ -7069,7 +7069,7 @@
else
io = 0;
if (!io)
- Perl_croak(aTHX_ "Bad filehandle: %s", SvPV(sv,n_a));
+ Perl_croak(aTHX_ "Bad filehandle: %"SVf, sv);
break;
}
return io;
@@ -7150,7 +7150,8 @@
Nullop);
LEAVE;
if (!GvCVu(gv))
- Perl_croak(aTHX_ "Unable to create sub named \"%s\"", SvPV(sv,n_a));
+ Perl_croak(aTHX_ "Unable to create sub named \"%"SVf"\"",
+ sv);
}
return GvCVu(gv);
}
@@ -8973,8 +8974,8 @@
if (!args && ckWARN(WARN_PRINTF) &&
(PL_op->op_type == OP_PRTF || PL_op->op_type == OP_SPRINTF)) {
SV *msg = sv_newmortal();
- Perl_sv_setpvf(aTHX_ msg, "Invalid conversion in %s: ",
- (PL_op->op_type == OP_PRTF) ? "printf" : "sprintf");
+ Perl_sv_setpvf(aTHX_ msg, "Invalid conversion in %sprintf: ",
+ (PL_op->op_type == OP_PRTF) ? "" : "s");
if (c) {
if (isPRINT(c))
Perl_sv_catpvf(aTHX_ msg,
==== //depot/maint-5.8/perl/toke.c#13 (text) ====
Index: perl/toke.c
--- perl/toke.c#12~18866~ Sun Mar 9 05:59:01 2003
+++ perl/toke.c Mon Mar 10 08:58:22 2003
@@ -5033,8 +5033,8 @@
d[tmp] = '\0';
if (bad_proto && ckWARN(WARN_SYNTAX))
Perl_warner(aTHX_ packWARN(WARN_SYNTAX),
- "Illegal character in prototype for %s : %s",
- SvPVX(PL_subname), d);
+ "Illegal character in prototype for %"SVf" : %s",
+ PL_subname, d);
SvCUR(PL_lex_stuff) = tmp;
have_proto = TRUE;
==== //depot/maint-5.8/perl/universal.c#5 (text) ====
Index: perl/universal.c
--- perl/universal.c#4~18804~ Sun Mar 2 08:22:35 2003
+++ perl/universal.c Mon Mar 10 08:58:22 2003
@@ -94,8 +94,8 @@
if (!basestash) {
if (ckWARN(WARN_MISC))
Perl_warner(aTHX_ packWARN(WARN_SYNTAX),
- "Can't locate package %s for @%s::ISA",
- SvPVX(sv), HvNAME(stash));
+ "Can't locate package %"SVf" for @%s::ISA",
+ sv, HvNAME(stash));
continue;
}
if (&PL_sv_yes == isa_lookup(basestash, name, name_stash,
==== //depot/maint-5.8/perl/utf8.c#5 (text) ====
Index: perl/utf8.c
--- perl/utf8.c#4~18804~ Sun Mar 2 08:22:35 2003
+++ perl/utf8.c Mon Mar 10 08:58:22 2003
@@ -1567,8 +1567,8 @@
}
if (!SvROK(retval) || SvTYPE(SvRV(retval)) != SVt_PVHV) {
if (SvPOK(retval))
- Perl_croak(aTHX_ "Can't find Unicode property definition \"%s\"",
- SvPV_nolen(retval));
+ Perl_croak(aTHX_ "Can't find Unicode property definition \"%"SVf"\"",
+ retval);
Perl_croak(aTHX_ "SWASHNEW didn't return an HV ref");
}
return retval;
End of Patch.
