Change 33273 by [EMAIL PROTECTED] on 2008/02/10 19:17:13
The sv argument to gv_stashsv() is not NULL.
Affected files ...
... //depot/perl/embed.fnc#575 edit
... //depot/perl/proto.h#909 edit
Differences ...
==== //depot/perl/embed.fnc#575 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#574~33272~ 2008-02-10 09:44:34.000000000 -0800
+++ perl/embed.fnc 2008-02-10 11:17:13.000000000 -0800
@@ -297,7 +297,7 @@
Ap |void |gv_name_set |NN GV* gv|NN const char *name|U32 len|U32 flags
Apd |HV* |gv_stashpv |NN const char* name|I32 flags
Apd |HV* |gv_stashpvn |NN const char* name|U32 namelen|I32 flags
-Apd |HV* |gv_stashsv |NULLOK SV* sv|I32 flags
+Apd |HV* |gv_stashsv |NN SV* sv|I32 flags
Apd |void |hv_clear |NULLOK HV* tb
poM |HV * |hv_copy_hints_hv|NN HV *const ohv
Ap |void |hv_delayfree_ent|NN HV* hv|NULLOK HE* entry
==== //depot/perl/proto.h#909 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#908~33272~ 2008-02-10 09:44:34.000000000 -0800
+++ perl/proto.h 2008-02-10 11:17:13.000000000 -0800
@@ -683,7 +683,9 @@
PERL_CALLCONV HV* Perl_gv_stashpvn(pTHX_ const char* name, U32 namelen,
I32 flags)
__attribute__nonnull__(pTHX_1);
-PERL_CALLCONV HV* Perl_gv_stashsv(pTHX_ SV* sv, I32 flags);
+PERL_CALLCONV HV* Perl_gv_stashsv(pTHX_ SV* sv, I32 flags)
+ __attribute__nonnull__(pTHX_1);
+
PERL_CALLCONV void Perl_hv_clear(pTHX_ HV* tb);
PERL_CALLCONV HV * Perl_hv_copy_hints_hv(pTHX_ HV *const ohv)
__attribute__nonnull__(pTHX_1);
End of Patch.
