1 files changed, 4 insertions, 2 deletions
diff --git a/contrib/console.pl b/contrib/console.pl
index dbd514ebd..fe2342cd9 100755
--- a/contrib/console.pl
+++ b/contrib/console.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 # This Source Code Form is subject to the terms of the Mozilla Public
 # License, v. 2.0. If a copy of the MPL was not distributed with this
 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
@@ -6,6 +6,8 @@
 # This Source Code Form is "Incompatible With Secondary Licenses", as
 # defined by the Mozilla Public License, v. 2.0.
 
+use warnings;
+
 use File::Basename;
 BEGIN { chdir dirname($0) . "/.."; }
 use lib qw(. lib);
@@ -51,7 +53,7 @@ sub d {
 
 # p: print as a single string (normal behavior puts list items on separate lines)
 sub p {
-    local $^W=0; # suppress possible undefined var message 
+    no warnings; # suppress possible undefined var message 
     print(@_, "\n");
     return ();
 }