diff options
Diffstat (limited to 'perl-install/Xconfig/resolution_and_depth.pm')
| -rw-r--r-- | perl-install/Xconfig/resolution_and_depth.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/perl-install/Xconfig/resolution_and_depth.pm b/perl-install/Xconfig/resolution_and_depth.pm index 5efac6ae5..8c095a64b 100644 --- a/perl-install/Xconfig/resolution_and_depth.pm +++ b/perl-install/Xconfig/resolution_and_depth.pm @@ -44,6 +44,11 @@ my @bios_vga_modes = ( { bios => 794, X => 1280, Y => 1024, Depth => 16 }, ); +sub from_bios { + my ($bios) = @_; + find { $_->{bios} == $bios } @bios_vga_modes; +} + sub size2default_resolution { my ($size) = @_; #- size in inch |