# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 995623159 0
# Node ID 3db3b0888252a166e10f50e89b5f96bf4caaaf37
# Parent  a4baa9de015f8eaf2ba15d9333e22f18757b4d5d
(parse_changelog): Add test for defined value to
quiet warning from Perl 5.005 or above.

diff -r a4baa9de015f -r 3db3b0888252 lib-src/grep-changelog
--- a/lib-src/grep-changelog	Fri Jul 20 09:53:57 2001 +0000
+++ b/lib-src/grep-changelog	Fri Jul 20 09:59:19 2001 +0000
@@ -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 @@
   	    $header = $line;
 
 	    # Add empty lines below the header.
-	    while (($line = <IN>) && $line =~ /^\s*$/) {
+	    while (defined($line = <IN>) && $line =~ /^\s*$/) {
 	        $header = "$header$line";
 	    }
         }