From df1aabfd83efbccaa3373c8195a54c67dd9ea08c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
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(-)

(limited to 'perl-install/Xconfig/resolution_and_depth.pm')

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