if ($sort_dirs) {
        my @tmp_1;
        my @tmp_2;
        my @tmp_3;
        my @tmp_4;
        my @tmp_5;
        my @tmp_6;
        my $void;
        print "Sorting directories...\n";
        for ($i = 0; $i <= $last_dir; $i++) {
            #printf ("sort_dirs_debug1: %5d fp: %5d, lp: %5d %s\n", $i, $first_pointer[$i], $last_pointer[$i], $the_dir[$i]);
        
            #define sort order
            #printf ("%s\n", $the_dir[$i]);
            #printf ("%s\n", uenc_path_file($the_dir[$i]));
            $tmp_1[$i] = join ('"|'
                                , $deleted_file[$i]
                                , uenc_path_file($the_dir[$i])
                                , $the_dir[$i]
                                , $first_pointer[$i]
                                , $last_pointer[$i]
                                , $has_subdir[$i]
                                , $has_iden[$i]
                                );
        }
        @tmp_2 = sort { lc($a) cmp lc($b) } @tmp_1;
        
        print "Putting sorted list back...\n";
        for($i = 0; $i <= $last_dir; $i++) {
            (
             $deleted_file[$i]
             , $void
             , $the_dir[$i]
             , $first_pointer[$i]
             , $last_pointer[$i]
             , $has_subdir[$i]
             , $has_iden[$i]
             ) = split (/\"\|/, $tmp_2[$i], 7);
            #printf ("sort_dirs_debug2: %5d fp: %5d, lp: %5d %s\n", $i, $first_pointer[$i], $last_pointer[$i], $the_dir[$i]);
        }
        
        # This just makes the file list sequential with the sorted directories.
        print "Starting full file sort...\n";
        $i = 0;
        for ($dir_pointer = 0; $dir_pointer <= $last_dir; $dir_pointer++) {
            print "i:$i, dir:$dir_pointer $first_pointer[$dir_pointer] $last_pointer[$dir_pointer]\n";
            $start = $first_pointer[$dir_pointer];
            $first_pointer[$dir_pointer] = $i;
            for($file_pointer = $start; $file_pointer <= $last_pointer[$dir_pointer]; $file_pointer++) {
                $tmp_1[$i] = $uenc_file_name[$file_pointer]; # IT CRASHES SOMEWHERE IN HERE.....
                $tmp_2[$i] = $dir_and_file_name[$file_pointer];
                $tmp_3[$i] = $date_time_mod[$file_pointer];
                $tmp_4[$i] = $file_size[$file_pointer];
                $tmp_5[$i] = $encpd[$file_pointer];
                $tmp_6[$i] = $deleted_file[$file_pointer];
                $tmp_7[$i] = $has_iden[$file_pointer];
                $i++;
            }
            $last_pointer[$dir_pointer] = $i - 1;
        }
        print "Putting full file sort back...\n";
        for($i = 0; $i <= $last_file; $i++) {
            $uenc_file_name[$i]    = $tmp_1[$i];
            $dir_and_file_name[$i] = $tmp_2[$i];
            $date_time_mod[$i]     = $tmp_3[$i];
            $file_size[$i]         = $tmp_4[$i];
            $encpd[$i]             = $tmp_5[$i];
            $deleted_file[$i]      = $tmp_6[$i];
            $has_iden[$i]          = $tmp_7[$i];
            $finf_valid[$i]        = 0;
        }
    }

#    for($i = 0; $i <= $last_dir; $i++) {
#       printf ("debug4: %5d fp: %5d, lp: %5d %s\n", $i, $first_pointer[$i], $last_pointer[$i], $the_dir[$i]);
#    }
    print "Exiting get files...\n";
}