[Bug] Log::Log4perl::Appender::File::file_switch() ignores the create_at_logtime option about log4perl HOT 2 OPEN

#########################################################
# Testing create_at_logtime with file_switch()
#########################################################
unlink "${testfile}_6"; # delete leftovers from previous tests

$data = qq(
log4perl.category                  = DEBUG, Logfile
log4perl.appender.Logfile          = Log::Log4perl::Appender::File
log4perl.appender.Logfile.filename = ${testfile}_6
log4perl.appender.Logfile.create_at_logtime = 1
log4perl.appender.Logfile.layout   = Log::Log4perl::Layout::SimpleLayout
);

Log::Log4perl->init(\$data);
ok(! -f "${testfile}_6");

$app = Log::Log4perl->appenders()->{Logfile};
$app->file_switch("${testfile}_7");
ok(! -f "${testfile}_7");

unlink "${testfile}_6", "${testfile}_7";