Commit b6a6731a authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(entry_match_p, header_match_p): Fix handling of null or empty

argument to prevent duplicate headers.
parent 41848daa
#! /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 @@ if ($version) {
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 header_match_p ($) {
sub entry_match_p ($) {
my $entry = shift;
return 0 unless $entry;
if ($regexp) {
return 1 if ($entry =~ /$regexp/
&& (!$exclude || $entry !~ $exclude));
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment