cpet/openbsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

new api, to be used

Browse Source
This commit is contained in:
espie 2014-07-11 13:46:36 +00:00
parent 1c117b9a83
commit f30b7d6751
2 changed files with 27 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
devel/quirks/Makefile
View File

@ -1,11 +1,11 @@
# $OpenBSD: Makefile,v 1.153 2014/07/09 20:30:58 zhuk Exp $
# $OpenBSD: Makefile,v 1.154 2014/07/11 13:46:36 espie Exp $
COMMENT = exceptions to pkg_add rules
CATEGORIES = devel databases
DISTFILES =
# API.rev
PKGNAME = quirks-1.149
PKGNAME = quirks-2.0
PKG_ARCH = *
MAINTAINER = Marc Espie <espie@openbsd.org>

29
devel/quirks/files/Quirks.pm
View File

@ -1,7 +1,7 @@
#! /usr/bin/perl
# ex:ts=8 sw=4:
# $OpenBSD: Quirks.pm,v 1.159 2014/07/09 20:30:58 zhuk Exp $
# $OpenBSD: Quirks.pm,v 1.160 2014/07/11 13:46:36 espie Exp $
#
# Copyright (c) 2009 Marc Espie <espie@openbsd.org>
#
@ -26,14 +26,14 @@ package OpenBSD::Quirks;
sub new
{
my ($class, $version) = @_;
if ($version == 1) {
return OpenBSD::Quirks1->new;
if ($version == 1 || $version == 2) {
return OpenBSD::Quirks2->new;
} else {
return undef;
}
}
package OpenBSD::Quirks1;
package OpenBSD::Quirks2;
use Config;
sub new
{
@ -497,4 +497,25 @@ sub tweak_search
}
}
# list of
# cat/path => badspec
my $cve = {
# for testing
# 'archivers/arc' => 'arc-<6',
};
# ->check_security($path)
# return an insecure specification for the matching path
# e.g., you should update.
sub check_security
{
my ($self, $path) = @_;
if (defined $cve->{$path}) {
return $cve->{$path};
} else {
return undef;
}
}
1;