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:
parent
b4af0c8ab0
commit
1db3e02224
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user