From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 30 Oct 2008 22:27:16 +0000 (+0000)
Subject: Change 34627 didn't realise that if S_find_uninit_var() takes a
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b3dbd76e6e180b608015c6158c3fec9739ef1343;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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) {