=head1 Name

Log


=head1 Ziel

Löschen der utf8-Problem-Logdatei, so vorhanden

=cut


package Test::Log1;
use utf8;
use warnings;
use strict; use warnings;
BEGIN { unshift(@INC,($ENV{'POPHOME'}||'@POPHOME@').'/lib')
			unless $ENV{'KUNDE_NO_PERLPATH'};
      }


use Test::More tests => 1; $|=1;
BEGIN { $ENV{'DbLocalCf'}=1; }
use Dbase::Test;

unlink "/tmp/log_$<";
ok(! -f "/tmp/log_$<", "No log file yet");

