summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-05-20 14:14:27 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-05-20 14:14:27 +0000
commitcbbc1add8f8c4544de300f938a660e7aa723475a (patch)
treed0645017121bf73b2b8918791085f83c54409343 /perl-install
parentc3608d2612112b4099b08891541289fd513e285c (diff)
downloaddrakx-cbbc1add8f8c4544de300f938a660e7aa723475a.tar
drakx-cbbc1add8f8c4544de300f938a660e7aa723475a.tar.gz
drakx-cbbc1add8f8c4544de300f938a660e7aa723475a.tar.bz2
drakx-cbbc1add8f8c4544de300f938a660e7aa723475a.tar.xz
drakx-cbbc1add8f8c4544de300f938a660e7aa723475a.zip
(removeverticalbar) pixelate
Diffstat (limited to 'perl-install')
-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;
}