a bit more stuff to ignore entirely

This commit is contained in:
espie 2018-04-27 14:43:34 +00:00
parent b675cad20d
commit 85ced75729

View File

@ -1,5 +1,5 @@
#! /usr/bin/perl
# $OpenBSD: update-plist,v 1.20 2018/04/27 14:21:42 espie Exp $
# $OpenBSD: update-plist,v 1.21 2018/04/27 14:43:34 espie Exp $
# Copyright (c) 2018 Marc Espie <espie@openbsd.org>
#
# Permission to use, copy, modify, and distribute this software for any
@ -107,9 +107,18 @@ my $ignore = {
MAINTAINER => 1,
PERMIT_PACKAGE_CDROM => 1,
PERMIT_PACKAGE_FTP => 1,
HOMEPAGE => 1
HOMEPAGE => 1,
REVISION => 1,
EPOCH => 1,
};
my $special = {
FULLPKGNAME => 1,
MACHINE_ARCH => 1,
ARCH => 1,
};
sub add
{
my ($self, $k, $v) = @_;
@ -135,7 +144,7 @@ sub value
sub never_add
{
my ($subst, $k) = @_;
return $k eq 'REVISION' || $k eq 'FULLPKGNAME' || $k eq 'EPOCH';
return $special->{$k};
}
# this has to call self's add in order for reverse_subst to work properly