From cbbc1add8f8c4544de300f938a660e7aa723475a Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 20 May 2003 14:14:27 +0000 Subject: (removeverticalbar) pixelate --- perl-install/standalone/scannerdrake | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'perl-install/standalone/scannerdrake') 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; } -- cgit v1.2.1