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

use Loader qw(pruefe_kunden);

sub pruefe_alles(;$) {
	my($flag) = @_;
	$flag = 0 unless $flag;

	if($flag & 1) {
		pruefe_kunden($flag);
	}
	1;
}

1;
