From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 20 Jul 2001 09:59:34 +0000 (+0000)
Subject: (parse_changelog): Add test for defined value to
X-Git-Tag: emacs-pretest-21.0.105~433
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=41848daa768e48702a61786ef672f0d6e11a34f5;p=emacs.git

(parse_changelog): Add test for defined value to
quiet warning from Perl 5.005 or above.
---

diff --git a/lib-src/ChangeLog b/lib-src/ChangeLog
index 9125c954bb0..a9a5a2209ef 100644
--- a/lib-src/ChangeLog
+++ b/lib-src/ChangeLog
@@ -1,3 +1,8 @@
+2001-07-20  Juanma Barranquero  <lektu@terra.es>
+
+	* grep-changelog (parse_changelog): Add test for defined value to
+	quiet warning from Perl 5.005 or above.
+
 2001-07-17  Jan Nieuwenhuizen  <janneke@gnu.org>
 
 	* emacsclient.c (print_help_and_exit): Fix help message for
diff --git a/lib-src/grep-changelog b/lib-src/grep-changelog
index 15f5196c270..b264bdc23d6 100755
--- a/lib-src/grep-changelog
+++ b/lib-src/grep-changelog
@@ -1,7 +1,7 @@
 #! /usr/bin/perl
-# $Id: grep-changelog,v 1.2 2000/05/05 13:19:05 gerd Exp $
+# $Id: grep-changelog,v 1.3 2000/06/14 07:09:42 meyering Exp $
 
-# Copyright (C) 1999, 2000 Free Software Foundation, Inc.
+# Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
 #
 # This file is part of GNU Emacs.
 #
@@ -174,7 +174,7 @@ sub parse_changelog ($) {
   	    $header = $line;
 
 	    # Add empty lines below the header.
-	    while (($line = <IN>) && $line =~ /^\s*$/) {
+	    while (defined($line = <IN>) && $line =~ /^\s*$/) {
 	        $header = "$header$line";
 	    }
         }