Mercurial > emacs
comparison lib-src/grep-changelog @ 38504:1d53627a58ae
(parse_changelog): Add another test for defined value to
quiet warnings from Perl 5.005 and above.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 20 Jul 2001 10:04:17 +0000 |
| parents | 180f542bf5b4 |
| children | 59acf1c91dd2 |
comparison
equal
deleted
inserted
replaced
| 38503:c079349b18ab | 38504:1d53627a58ae |
|---|---|
| 1 #! /usr/bin/perl | 1 #! /usr/bin/perl |
| 2 # $Id: grep-changelog,v 1.4 2001/07/20 09:59:19 gerd Exp $ | 2 # $Id: grep-changelog,v 1.5 2001/07/20 10:02:06 gerd Exp $ |
| 3 | 3 |
| 4 # Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc. | 4 # Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc. |
| 5 # | 5 # |
| 6 # This file is part of GNU Emacs. | 6 # This file is part of GNU Emacs. |
| 7 # | 7 # |
| 181 while (defined($line = <IN>) && $line =~ /^\s*$/) { | 181 while (defined($line = <IN>) && $line =~ /^\s*$/) { |
| 182 $header = "$header$line"; | 182 $header = "$header$line"; |
| 183 } | 183 } |
| 184 } | 184 } |
| 185 | 185 |
| 186 last unless defined $line; | |
| 187 | |
| 186 if ($line =~ /^\s*\*/) { | 188 if ($line =~ /^\s*\*/) { |
| 187 # LINE is the first line of a ChangeLog entry. Print | 189 # LINE is the first line of a ChangeLog entry. Print |
| 188 # previous entry if it matches. | 190 # previous entry if it matches. |
| 189 print_log ($header, $entry) | 191 print_log ($header, $entry) |
| 190 if header_match_p ($header) && entry_match_p ($entry); | 192 if header_match_p ($header) && entry_match_p ($entry); |