bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-04-04 07:43:22 -04:00
Code Issues Projects Releases Wiki Activity

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

Browse Source 
add-on for tr///.
This commit is contained in:
freesource 2001-08-28 08:01:27 +00:00
parent 50b04ef3a5
commit aff16e7b76
1 changed files with 13 additions and 1 deletions

14
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 {