diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-05-20 14:14:27 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-05-20 14:14:27 +0000 |
| commit | cbbc1add8f8c4544de300f938a660e7aa723475a (patch) | |
| tree | d0645017121bf73b2b8918791085f83c54409343 /perl-install/standalone/scannerdrake | |
| parent | c3608d2612112b4099b08891541289fd513e285c (diff) | |
| download | drakx-cbbc1add8f8c4544de300f938a660e7aa723475a.tar drakx-cbbc1add8f8c4544de300f938a660e7aa723475a.tar.gz drakx-cbbc1add8f8c4544de300f938a660e7aa723475a.tar.bz2 drakx-cbbc1add8f8c4544de300f938a660e7aa723475a.tar.xz drakx-cbbc1add8f8c4544de300f938a660e7aa723475a.zip | |
(removeverticalbar) pixelate
Diffstat (limited to 'perl-install/standalone/scannerdrake')
| -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; } |