#
# prüfe ob GPG ausführbar und nicht-setuid-root

use utf8;
use strict;
use warnings; no warnings "redefine";
use Fehler qw(fehler);

sub check_gpg() {
	fehler "/usr/bin/gpg ist setuid root"
		if ((stat("/usr/bin/gpg"))[2] & 04700) != 0700;
}
1;
