From df1aabfd83efbccaa3373c8195a54c67dd9ea08c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 22 Jun 2004 14:31:38 +0000 Subject: - export @bios_vga_modes (needed for bootloader vga=) - to_string should return '' instead of () --- perl-install/Xconfig/resolution_and_depth.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/perl-install/Xconfig/resolution_and_depth.pm b/perl-install/Xconfig/resolution_and_depth.pm index 4dd830a22..3663f804c 100644 --- a/perl-install/Xconfig/resolution_and_depth.pm +++ b/perl-install/Xconfig/resolution_and_depth.pm @@ -51,6 +51,8 @@ sub from_bios { find { $_->{bios} == $bios } @bios_vga_modes; } +sub bios_vga_modes { @bios_vga_modes } + sub size2default_resolution { my ($size) = @_; #- size in inch @@ -76,7 +78,7 @@ sub size2default_resolution { sub to_string { my ($resolution) = @_; - $resolution or return; + $resolution or return ''; $resolution->{X} ? sprintf("%sx%s %dbpp", @$resolution{'X', 'Y', 'Depth'}) : 'frame-buffer'; } -- cgit v1.2.1