1 files changed, 9 insertions, 0 deletions
diff --git a/defparams.pl b/defparams.pl
index 56a63cf6d..388c4139d 100644
--- a/defparams.pl
+++ b/defparams.pl
@@ -26,6 +26,15 @@
 use diagnostics;
 use strict;
 
+# Shut up misguided -w warnings about "used only once".  For some reason,
+# "use vars" chokes on me when I try it here.
+
+sub bug_form_pl_sillyness {
+    my $zz;
+    $zz = %::param_checker;
+    $zz = %::param_desc;
+    $zz = %::param_type;
+}
 
 sub WriteParams {
     foreach my $i (@::param_list) {