upstream/bind9
1
0
Fork 0
mirror of https://github.com/isc-projects/bind9.git synced 2026-05-28 04:34:54 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

'$/ = "";' caused entries to be dropped creating false positives.

Browse source
This commit is contained in:
Mark Andrews 2002-01-24 06:23:34 +00:00
parent c3e0aed7da
commit 42e74b77f5
1 changed files with 17 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
util/check-pullups.pl
View file

@ -15,7 +15,7 @@
# NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
# WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
# $Id: check-pullups.pl,v 1.5 2001/10/18 00:44:32 marka Exp $
# $Id: check-pullups.pl,v 1.6 2002/01/24 06:23:34 marka Exp $
# Given two CHANGES files, list [bug] entries present in the
# first one but not in the second one.
@ -23,7 +23,7 @@
use FileHandle;
$/ = "";
# $/ = "";
# Read the CHANGES file $fn and return a hash of change
# texts and categories indexed by change number.
@ -37,15 +37,25 @@ sub readfile {
my ($changeid, $category);
$changeid = "none";
$category = "none";
while (<$fh>) {
if (m/---.* released ---/) {
next;
} elsif (m/^# /) {
next;
} elsif (m/^\s*(\d+)\.\s+\[(\w+)\]/) {
if (m/^\s*(\d+)\.\s+\[(\w+)\]/) {
$changeid = $1;
$category = $2;
# print "*** $1 $2\n";
} elsif (m/---.* released ---/) {
$changeid = "none";
$category = "none";
next;
} elsif (m/^# /) {
$changeid = "none";
$category = "none";
next;
}
if ($changeid eq "none") {
next;
}
$changes->{$changeid}->{text} .= $_;
$changes->{$changeid}->{category} = $category;