Change 33814 by [EMAIL PROTECTED] on 2008/05/10 16:44:45
Run Porting/checkARGS_ASSERT.pl and fix what it picks up. (Which,
coincidentally were both from changes I made)
Affected files ...
... //depot/perl/gv.c#398 edit
... //depot/perl/hv.c#375 edit
Differences ...
==== //depot/perl/gv.c#398 (text) ====
Index: perl/gv.c
--- perl/gv.c#397~33707~ 2008-04-17 06:36:21.000000000 -0700
+++ perl/gv.c 2008-05-10 09:44:45.000000000 -0700
@@ -602,6 +602,8 @@
GV *
Perl_gv_fetchmethod_autoload(pTHX_ HV *stash, const char *name, I32 autoload)
{
+ PERL_ARGS_ASSERT_GV_FETCHMETHOD_AUTOLOAD;
+
return gv_fetchmethod_flags(stash, name, autoload ? GV_AUTOLOAD : 0);
}
@@ -620,7 +622,7 @@
const U32 autoload = flags & GV_AUTOLOAD;
const U32 do_croak = flags & GV_CROAK;
- PERL_ARGS_ASSERT_GV_FETCHMETHOD_AUTOLOAD;
+ PERL_ARGS_ASSERT_GV_FETCHMETHOD_FLAGS;
if (SvTYPE(stash) < SVt_PVHV)
stash = NULL;
==== //depot/perl/hv.c#375 (text) ====
Index: perl/hv.c
--- perl/hv.c#374~33659~ 2008-04-07 10:50:31.000000000 -0700
+++ perl/hv.c 2008-05-10 09:44:45.000000000 -0700
@@ -2925,6 +2925,8 @@
struct refcounted_he *
Perl_store_cop_label(pTHX_ struct refcounted_he *const chain, const char
*label)
{
+ PERL_ARGS_ASSERT_STORE_COP_LABEL;
+
return refcounted_he_new_common(chain, ":", 1, HVrhek_PV, HVrhek_PV,
label, strlen(label));
}
End of Patch.
