diff --git a/SWIM/Indexer.pm b/SWIM/Indexer.pm index aa190dd..80f4583 100644 --- a/SWIM/Indexer.pm +++ b/SWIM/Indexer.pm @@ -40,6 +40,7 @@ sub T_indexer { foreach (@$alot) { $argument = $_; + if ($commands->{"scripts"} || $commands->{"preinst"} || $commands->{"postinst"} || @@ -63,6 +64,7 @@ sub T_indexer { file(\%commands); } print "\n"; + return; } } # end sub T_indexer @@ -412,9 +414,17 @@ sub indexer { # -t -C &| -D || -L # ##################### # conf stuf. Will only show stuff related to -a or -f with conf. - elsif (($commands->{"c"} && (!$commands->{"d"} || !$commands->{"l"})) || - ($commands->{"c"} && ($commands->{"d"} || $commands->{"l"}))) { - c_indexer(\@alot,\%commands); + elsif ( + ($commands->{"c"} && + (!$commands->{"d"} || + !$commands->{"l"})) || + + ($commands->{"c"} && + ($commands->{"d"} || + $commands->{"l"}))) { + + c_indexer(\@alot,\%commands); + } # end elsif } @@ -438,6 +448,7 @@ sub indexer { # -D # ###### if ($commands->{"d"} && !$commands->{"c"}) { + if ($commands->{"T"}) { T_indexer(\@alot,\%commands); } @@ -451,9 +462,16 @@ sub indexer { ################ # NOT -C,-D,-L # ################ - elsif (!$commands->{"c"} && (!$commands->{"d"} || !$commands->{"l"})) { - if ($commands->{"T"}) { - T_indexer(\@alot,\%commands); + elsif (!$commands->{"c"} && + + (!$commands->{"d"} || !$commands->{"l"}) + + ) { + + if ($commands->{"T"}) { + + T_indexer(\@alot,\%commands); + } elsif (which_character(\%commands)) { which_character_indexer(\@alot,\%commands); @@ -468,14 +486,21 @@ sub indexer { # -C &| -D || -L # ################## # conf stuf. Will only show stuff related to -a or -f with conf. - elsif (($commands->{"c"} && (!$commands->{"d"} || !$commands->{"l"})) || - ($commands->{"c"} && ($commands->{"d"} || $commands->{"l"}))) { + elsif ( + ($commands->{"c"} && + (!$commands->{"d"} || !$commands->{"l"})) || + + ($commands->{"c"} && + + ($commands->{"d"} || $commands->{"l"}))) { + c_indexer(\@alot,\%commands); - } - - } # without -t - } - else { + + } + + } # without -t + } + else { $argument =~ m,.*\/(.*$),; if ($1) { my $file = $1; @@ -535,3 +560,8 @@ sub indexer { 1; + + + + +