* admin/check-doc-strings: Replace `perl -w' with `use warnings;'.

3 files changed, 7 insertions, 1 deletions

diff --git a/admin/ChangeLog b/admin/ChangeLog
index 55dd0bf6608..9f160e9604f 100644
--- a/admin/ChangeLog
+++ b/admin/ChangeLog
@@ -1,3 +1,7 @@
+2014-01-02  Xue Fuqiao  <xfq.free@gmail.com>
+
+        * check-doc-strings: Replace `perl -w' with `use warnings;'.
+
 2013-12-30  Glenn Morris  <rgm@gnu.org>
 
         * admin.el (manual-html-fix-headers, manual-html-fix-index-1):
diff --git a/admin/admin.el b/admin/admin.el
index 6e05a883c2b..58e5b0c830e 100644
--- a/admin/admin.el
+++ b/admin/admin.el
@@ -218,6 +218,7 @@ ROOT should be the root of an Emacs source tree."
                              (buffer-substring start (point))))
               '("efaq-w32")))))
 
+;; TODO report the progress
 (defun make-manuals (root &optional type)
   "Generate the web manuals for the Emacs webpage.
 ROOT should be the root of an Emacs source tree.
diff --git a/admin/check-doc-strings b/admin/check-doc-strings
index c69ff47ebfb..a0b5acb623f 100755
--- a/admin/check-doc-strings
+++ b/admin/check-doc-strings
@@ -1,11 +1,12 @@
 : #-*- Perl -*-
-eval 'exec perl -w -S $0 ${1+"$@"}' # Portability kludge
+eval 'exec perl -S $0 ${1+"$@"}' # Portability kludge
     if 0;
 
 # Author: Martin Buchholz
 # This program is in the public domain.
 
 use strict;
+use warnings;
 use POSIX;
 
 (my $myName = $0) =~ s@.*/@@; my $usage="