From 3eb7ddf329945b08b2c4ed4ea2af8cc5dc578a74 Mon Sep 17 00:00:00 2001
From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 20 Jul 2001 10:04:17 +0000
Subject: [PATCH] (parse_changelog): Add another test for defined value to
 quiet warnings from Perl 5.005 and above.

---
 lib-src/grep-changelog | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib-src/grep-changelog b/lib-src/grep-changelog
index 15a3d3c99d5..455d2cea5a8 100755
--- a/lib-src/grep-changelog
+++ b/lib-src/grep-changelog
@@ -1,5 +1,5 @@
 #! /usr/bin/perl
-# $Id: grep-changelog,v 1.4 2001/07/20 09:59:19 gerd Exp $
+# $Id: grep-changelog,v 1.5 2001/07/20 10:02:06 gerd Exp $
 
 # Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
 #
@@ -183,6 +183,8 @@ sub parse_changelog ($) {
 	    }
         }
 
+        last unless defined $line;
+
 	if ($line =~ /^\s*\*/) {
 	    # LINE is the first line of a ChangeLog entry.  Print
 	    # previous entry if it matches.