A bug fix where keywords weren't changing because of the prior effeciency

add-on for tr///.

BootRoot/YardBox.pm

@@ -1193,7 +1193,7 @@ sub search {
 	$submit_b->grab_default;
 	$submit_b->signal_connect( "clicked", sub {
 	    my $keywords = $search1->get_text();
-	    
+
       	    # rindex
 	    if ($search_backwards->active) {
 
@@ -1204,6 +1204,9 @@ sub search {
 				tr/A-Z/a-z/;
 			    ($tmp_k = $keywords) =~ tr/A-Z/a-z/;
 			}
+			if ($tmp_k && $tmp_k ne $keywords) {
+			    ($tmp_k = $keywords) =~ tr/A-Z/a-z/;
+			}
 			$offset = rindex($tmp_ct, $tmp_k);
 
 		    }
@@ -1228,6 +1231,9 @@ sub search {
 				tr/A-Z/a-z/;
 			    ($tmp_k = $keywords) =~ tr/A-Z/a-z/;
 			}
+			if ($tmp_k && $tmp_k ne $keywords) {
+			    ($tmp_k = $keywords) =~ tr/A-Z/a-z/;
+			}
 			$offset = rindex($tmp_ct, $tmp_k, $offset);
 		    }
 		    else {
@@ -1260,6 +1266,9 @@ sub search {
 				tr/A-Z/a-z/;
 			    ($tmp_k = $keywords) =~ tr/A-Z/a-z/;
 			}
+			if ($tmp_k && $tmp_k ne $keywords) {
+			    ($tmp_k = $keywords) =~ tr/A-Z/a-z/;
+			}
 			$offset = index($tmp_ct, $tmp_k);
 		    }
 		    else {
@@ -1284,6 +1293,9 @@ sub search {
 			    tr/A-Z/a-z/;
 			    ($tmp_k = $keywords) =~ tr/A-Z/a-z/;
 			}
+			if ($tmp_k && $tmp_k ne $keywords) {
+			    ($tmp_k = $keywords) =~ tr/A-Z/a-z/;
+			}
 			$offset = index($tmp_ct, $tmp_k, $offset);
 		    }
 		    else {