From af74d68c633716bdd3cc1acd16a021c3c303ca0c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 21 Mar 2005 09:52:59 +0000 Subject: ensure strange return value from gtf(1) doesn't cause havoc --- perl-install/Xconfig/xfree.pm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'perl-install/Xconfig/xfree.pm') 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)); } -- cgit v1.2.1