Change 34627 didn't realise that if S_find_uninit_var() takes a

const SV *, then so can Perl_report_uninit().

p4raw-id: //depot/perl@34673

diff --git a/embed.fnc b/embed.fnc
index 5b0736a..c3835b3 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1022,7 +1022,7 @@ p |U32    |parse_unicode_opts|NN const char **popt
 Ap     |U32    |seed
 pR     |UV     |get_hash_seed
 p      |void   |report_evil_fh |NULLOK const GV *gv|NULLOK const IO *io|I32 op
-XEpd   |void   |report_uninit  |NULLOK SV* uninit_sv
+XEpd   |void   |report_uninit  |NULLOK const SV *uninit_sv
 Afpd   |void   |warn           |NN const char* pat|...
 Ap     |void   |vwarn          |NN const char* pat|NULLOK va_list* args
 Afp    |void   |warner         |U32 err|NN const char* pat|...

diff --git a/proto.h b/proto.h
index a4cc460..c466fba 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -3681,7 +3681,7 @@ PERL_CALLCONV UV  Perl_get_hash_seed(pTHX)
                        __attribute__warn_unused_result__;
 
 PERL_CALLCONV void     Perl_report_evil_fh(pTHX_ const GV *gv, const IO *io, I32 op);
-PERL_CALLCONV void     Perl_report_uninit(pTHX_ SV* uninit_sv);
+PERL_CALLCONV void     Perl_report_uninit(pTHX_ const SV *uninit_sv);
 PERL_CALLCONV void     Perl_warn(pTHX_ const char* pat, ...)
                        __attribute__format__(__printf__,pTHX_1,pTHX_2)
                        __attribute__nonnull__(pTHX_1);

diff --git a/sv.c b/sv.c
index 6811155..a425a5b 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -12835,7 +12835,7 @@ Print appropriate "Use of uninitialized variable" warning
 */
 
 void
-Perl_report_uninit(pTHX_ SV* uninit_sv)
+Perl_report_uninit(pTHX_ const SV *uninit_sv)
 {
     dVAR;
     if (PL_op) {