Mercurial > emacs
changeset 38502:180f542bf5b4
(entry_match_p, header_match_p): Fix handling of null or empty
argument to prevent duplicate headers.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 20 Jul 2001 10:02:06 +0000 |
| parents | 8e5a706c5f37 |
| children | c079349b18ab |
| files | lib-src/grep-changelog |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lib-src/grep-changelog Fri Jul 20 09:59:34 2001 +0000 +++ b/lib-src/grep-changelog Fri Jul 20 10:02:06 2001 +0000 @@ -1,5 +1,5 @@ #! /usr/bin/perl -# $Id: grep-changelog,v 1.3 2000/06/14 07:09:42 meyering Exp $ +# $Id: grep-changelog,v 1.4 2001/07/20 09:59:19 gerd Exp $ # Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc. # @@ -89,6 +89,8 @@ sub header_match_p ($) { my $header = shift; + return 0 unless $header; + # No match if AUTHOR-regexp specified and doesn't match. return 0 if $author && $header !~ /$author/; @@ -117,6 +119,8 @@ sub entry_match_p ($) { my $entry = shift; + return 0 unless $entry; + if ($regexp) { return 1 if ($entry =~ /$regexp/ && (!$exclude || $entry !~ $exclude));