# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 995623326 0
# Node ID 180f542bf5b48627a9fb5b0c2fdff3e7787806ba
# Parent  8e5a706c5f37406e12b667f50c178ad951a2d50d
(entry_match_p, header_match_p): Fix handling of null or empty
argument to prevent duplicate headers.

diff -r 8e5a706c5f37 -r 180f542bf5b4 lib-src/grep-changelog
--- 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));