Change 31785 by [EMAIL PROTECTED] on 2007/09/03 11:07:53
Subject: Re: [patch-at-31775] Re: [PATCH-revised] [perl #44999]
From: Vadim <[EMAIL PROTECTED]>
Date: Sun, 02 Sep 2007 02:52:13 +0400
Message-ID: <[EMAIL PROTECTED]>
Better way to silence unwanted warnings. (The previous method didn't
work with an "all static" build made with #31784. This method does
work.)
Affected files ...
... //depot/perl/lib/ExtUtils/Constant/ProxySubs.pm#20 edit
Differences ...
==== //depot/perl/lib/ExtUtils/Constant/ProxySubs.pm#20 (text) ====
Index: perl/lib/ExtUtils/Constant/ProxySubs.pm
--- perl/lib/ExtUtils/Constant/ProxySubs.pm#19~31769~ 2007-08-31
01:54:12.000000000 -0700
+++ perl/lib/ExtUtils/Constant/ProxySubs.pm 2007-09-03 04:07:53.000000000
-0700
@@ -312,13 +312,10 @@
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
End of Patch.
