+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
#! /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.
#
$header = $line;
# Add empty lines below the header.
- while (($line = <IN>) && $line =~ /^\s*$/) {
+ while (defined($line = <IN>) && $line =~ /^\s*$/) {
$header = "$header$line";
}
}