diff --git a/BootRoot/YardBox.pm b/BootRoot/YardBox.pm index c50eaa3..4363a12 100644 --- a/BootRoot/YardBox.pm +++ b/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 {