From 5cd63720ce8b6da6fa722ec18c2c4087a6a0afd2 Mon Sep 17 00:00:00 2001 From: Xue Fuqiao Date: Thu, 2 Jan 2014 16:47:40 +0800 Subject: [PATCH] * admin/check-doc-strings: Replace `perl -w' with `use warnings;'. --- admin/ChangeLog | 4 ++++ admin/admin.el | 1 + admin/check-doc-strings | 3 ++- 3 files changed, 7 insertions(+), 1 deletion(-) diff --git a/admin/ChangeLog b/admin/ChangeLog index 55dd0bf660..9f160e9604 100644 --- a/admin/ChangeLog +++ b/admin/ChangeLog @@ -1,3 +1,7 @@ +2014-01-02 Xue Fuqiao + + * check-doc-strings: Replace `perl -w' with `use warnings;'. + 2013-12-30 Glenn Morris * admin.el (manual-html-fix-headers, manual-html-fix-index-1): diff --git a/admin/admin.el b/admin/admin.el index 6e05a883c2..58e5b0c830 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 c69ff47ebf..a0b5acb623 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=" -- 2.20.1