use utf8;
use warnings; no warnings "redefine";
use strict;

use Loader qw(pruefe_person);

sub pruefe_kunde_person($;$) {
	my($person,$flag) = @_;
	$flag = 0 unless $flag;

	pruefe_person($person);
	1;
}

1;
