diff options
| -rwxr-xr-x | perl-install/standalone/scannerdrake | 3 |
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; } |