use utf8;
use strict;
use warnings; no warnings "redefine";
use Loader qw(line_in);

use Term::ReadLine;

my $term;
my $init;

BEGIN {
	$ENV{"PERL_RL"}="Perl"; # " o=0"  ## die normale Readline unter 5.6 kann kein UTF8
}

sub line_init() {
	unless($term) {
		return undef if defined $ENV{'KUNDE_NO_READLINE'}
			or $ENV{'TESTING2'};
		$term = new Term::ReadLine 'Kundeprogramm';
		$term->MinLine(3);
		$term->ornaments(1) unless defined $ENV{'KUNDE_PLAIN'};
	}
	$term;
}
1;

