diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/Xconfig/xfree.pm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/perl-install/Xconfig/xfree.pm b/perl-install/Xconfig/xfree.pm index e65948dc2..151521f70 100644 --- a/perl-install/Xconfig/xfree.pm +++ b/perl-install/Xconfig/xfree.pm @@ -315,10 +315,11 @@ sub add_gtf_ModeLines { ($res eq '1400x1050' || $Xconfig::xfree::resolution2ratio{$res} ne '4/3')) { @to_add = map { my $s = run_program::rooted_get_stdout($::prefix, 'gtf', $resolution->{X}, $resolution->{Y}, $_); - my ($name, $val) = $s =~ /ModeLine\s*"(.*)"(.*)/i; - chomp $val; - $name =~ s/\.00//; #- nicer that way - { val => qq("${name}"$val), pre_comment => "# $banner\n" }; + if (my ($name, $val) = $s =~ /ModeLine\s*"(.*)"(.*)/i) { + chomp $val; + $name =~ s/\.00//; #- nicer that way + { val => qq("${name}"$val), pre_comment => "# $banner\n" }; + } else { () } } reverse(sort_numbers(@Xconfig::xfree::vfreqs)); } |