- minor fix in UI

perl/exit_strategy.pl

@@ -737,6 +737,7 @@ sub searching_relevant_ie_files ($dir, $tmp_ies_unsorted_file, $first_two_levels
   my $rx_dir = qr{^\Q$dir\E/?};
   ###
   my $dircount = 0;
+
   my $wanted_process_sip = sub {
     if (-f && m/V(\d+)-IE\d+\.xml$/) {
       my $version = $1;
@@ -873,7 +874,8 @@ my $cnt_unsorted_files = searching_ie_files(\@dirs, $tmp_ies_unsorted_file);
 # /permanent_storage/2020/04/02/IE201080/V2-FL201091.xml
 my $fh_unsorted_IEs = $tmp_ies_unsorted_file->openr();
 my $count = 0;
-my $progressbar = Time::Progress->new(min => 0, max => $cnt_unsorted_files, smoothing => 1);
+
+my $progressbar = Time::Progress->new(min => 1, max => $cnt_unsorted_files);
 my $dbh = DBI->connect("dbi:SQLite:dbname=$db_filename", "", "", {
     RaiseError     => 1,
     sqlite_unicode => 1,