summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfig.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/Xconfig.pm')
-rw-r--r--perl-install/Xconfig.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/Xconfig.pm b/perl-install/Xconfig.pm
index 280b7f987..77b5b9c4b 100644
--- a/perl-install/Xconfig.pm
+++ b/perl-install/Xconfig.pm
@@ -207,10 +207,10 @@ sub getinfoFromDDC {
}
my ($h, $v, $size, @m) = @l;
- $O->{hsyncrange} ||= $h =~ /^(\S*)/;
- $O->{vsyncrange} ||= $v =~ /^(\S*)/;
+ $O->{hsyncrange} ||= first($h =~ /^(\S*)/);
+ $O->{vsyncrange} ||= first($v =~ /^(\S*)/);
$O->{size} ||= to_float($size);
- $O->{EISA_ID} = lc($1) if $size =~ /EISA ID: (\S*)/;
+ $O->{EISA_ID} = lc($1) if $size =~ /EISA ID=(\S*)/;
$O->{modelines} ||= join '', @m;
$o;
}