From: Vadim Konovalov <vkonovalov@lucent.com>
Date: Sun, 2 Sep 2007 02:52:13 +0000 (+0400)
Subject: Re: [patch-at-31775] Re: [PATCH-revised] [perl #44999]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2e538cd12522ca22c155a902bd7637a80df531c9;p=p5sagit%2Fp5-mst-13.2.git

Re: [patch-at-31775] Re: [PATCH-revised] [perl #44999]
Message-ID: <46D9ED1D.8060104@vkonovalov.ru>

Better way to silence unwanted warnings. (The previous method didn't
work with an "all static" build made with #31784. This method does
work.)

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

diff --git a/lib/ExtUtils/Constant/ProxySubs.pm b/lib/ExtUtils/Constant/ProxySubs.pm
index 9bcf110..5ae56db 100644
--- a/lib/ExtUtils/Constant/ProxySubs.pm
+++ b/lib/ExtUtils/Constant/ProxySubs.pm
@@ -312,13 +312,10 @@ EOBOOT
 
     print $xs_fh <<"EOBOOT";
 #ifndef SYMBIAN
+	${c_subname}_missing = get_hv("${symbol_table}${c_subname}_M!55!NG", TRUE);
 	/* When we create the 'missing' hash, it generates a 'used only once'
-	 * warning.  Therefore, turn off warnings while we do this.
-	 */
-	const bool warn_tmp = PL_dowarn;
-	PL_dowarn = 0;
+	 * warning.  Avoid this: */
 	${c_subname}_missing = get_hv("${symbol_table}${c_subname}_M!55!NG", TRUE);
-	PL_dowarn = warn_tmp;
 #endif
 EOBOOT