summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/scannerdrake
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/scannerdrake')
-rwxr-xr-xperl-install/standalone/scannerdrake3
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/standalone/scannerdrake b/perl-install/standalone/scannerdrake
index a17c7e200..47e01ed82 100755
--- a/perl-install/standalone/scannerdrake
+++ b/perl-install/standalone/scannerdrake
@@ -67,8 +67,7 @@ quit();
sub removeverticalbar {
my ($s) = @_;
$s =~ s/\|/ /g;
- my $make = $1 if $s =~ /^\s*(\S+)\s+/;
- my $searchmake = handle_configs::searchstr($make);
+ my $searchmake = handle_configs::searchstr(first($s =~ /^\s*(\S+)\s+/));
$s =~ s/($searchmake)\s*$searchmake/$1/;
return $s;
}