diff options
| -rwxr-xr-x | sboremove | 9 |
1 files changed, 4 insertions, 5 deletions
@@ -39,10 +39,10 @@ EOF my ($help, $vers, $non_int, $no_reqs, $alwaysask, @excluded); GetOptions ( - 'help|h' => \$help, - 'version|v' => \$vers, + 'help|h' => \$help, + 'version|v' => \$vers, 'norequirements|R' => \$no_reqs, - 'nointeractive' => \$non_int, + 'nointeractive' => \$non_int, 'alwaysask|a' => \$alwaysask, ); @@ -55,8 +55,7 @@ my $inst_names = get_inst_names $installed; my @remove; for my $sbo (@ARGV) { - my $test = get_sbo_location ($sbo); - if ( defined $test ) { + if (get_sbo_location ($sbo)) { if ($sbo ~~ @$inst_names) { push @remove, $sbo } else { |