Teach register-plist how to deal with the case where the recorded

plist in PLIST_DB misses the last line.

found & debugged by sturm@
ok sturm@, espie@
This commit is contained in:
bernd 2006-10-19 00:15:46 +00:00
parent b4af0c8ab0
commit 1db3e02224

View File

@ -1,6 +1,6 @@
#! /usr/bin/perl
# $OpenBSD: register-plist,v 1.10 2006/10/02 18:48:01 espie Exp $
# $OpenBSD: register-plist,v 1.11 2006/10/19 00:15:46 bernd Exp $
# Copyright (c) 2005
# Marc Espie. All rights reserved.
# Redistribution and use in source and binary forms, with or without
@ -177,6 +177,7 @@ sub my_compare
$p2->visit('flatten', $l2);
while (my $e = shift @$l) {
my $e2 = shift @$l2;
return 1 unless defined $e2;
my $r = $e->compare($e2);
if ($r == 1) {
return $r;