Mercurial > emacs
changeset 38500:3db3b0888252
(parse_changelog): Add test for defined value to
quiet warning from Perl 5.005 or above.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 20 Jul 2001 09:59:19 +0000 |
| parents | a4baa9de015f |
| children | 8e5a706c5f37 |
| files | lib-src/grep-changelog |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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"; } }