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 (file)
--- 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