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

diff --git a/admin/ChangeLog b/admin/ChangeLog
index 55dd0bf660810e17568a99df0b8e3b113f20569f..9f160e9604ff479de35a3fccee1c4a5483c8fbc9 100644 (file)
--- 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 6e05a883c2b66cb57f3d6bf7dc0b68fd602e1556..58e5b0c830e2f9eebf60de7ec2e667e5f037bad6 100644 (file)
--- 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 c69ff47ebfbd754153608f44d56e74084238bd43..a0b5acb623f1e04d532655e8c280ee37045e3c81 100755 (executable)
--- 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="