From: Dave Mitchell <davem@fdisolutions.com>
Date: Thu, 29 Sep 2005 21:01:54 +0000 (+0000)
Subject: the return value of start_subparse() can legally be ignored
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0b1558d16cef0eed0293ca2293a1169f013e7e06;p=p5sagit%2Fp5-mst-13.2.git

the return value of start_subparse() can legally be ignored

p4raw-id: //depot/perl@25664
---

diff --git a/embed.fnc b/embed.fnc
index c8f96ec..d2e41a1 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -715,7 +715,7 @@ np	|Signal_t |sighandler	|int sig
 Anp	|Signal_t |csighandler	|int sig
 #endif
 Ap	|SV**	|stack_grow	|NN SV** sp|NN SV**p|int n
-ApR	|I32	|start_subparse	|I32 is_format|U32 flags
+Ap	|I32	|start_subparse	|I32 is_format|U32 flags
 p	|void	|sub_crush_depth|NN CV* cv
 Apd	|bool	|sv_2bool	|NN SV* sv
 Apd	|CV*	|sv_2cv		|NULLOK SV* sv|NN HV** st|NN GV** gvp|I32 lref
diff --git a/gv.c b/gv.c
index 1543059..66003af 100644
--- a/gv.c
+++ b/gv.c
@@ -164,7 +164,7 @@ Perl_gv_init(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, int multi)
 	SvIOK_off(gv);
 	ENTER;
 	/* XXX unsafe for threads if eval_owner isn't held */
-	start_subparse(0,0);		/* Create CV in compcv. */
+	(void) start_subparse(0,0);	/* Create empty CV in compcv. */
 	GvCV(gv) = PL_compcv;
 	LEAVE;
 
diff --git a/proto.h b/proto.h
index d09f802..9996bf3 100644
--- a/proto.h
+++ b/proto.h
@@ -1987,9 +1987,7 @@ PERL_CALLCONV SV**	Perl_stack_grow(pTHX_ SV** sp, SV**p, int n)
 			__attribute__nonnull__(pTHX_1)
 			__attribute__nonnull__(pTHX_2);
 
-PERL_CALLCONV I32	Perl_start_subparse(pTHX_ I32 is_format, U32 flags)
-			__attribute__warn_unused_result__;
-
+PERL_CALLCONV I32	Perl_start_subparse(pTHX_ I32 is_format, U32 flags);
 PERL_CALLCONV void	Perl_sub_crush_depth(pTHX_ CV* cv)
 			__attribute__nonnull__(pTHX_1);