From 126777bc019a54afb4ec51299f2cf9d2841698aa Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 25 Apr 2007 12:26:16 +0000 Subject: re-sync after the big svn loss --- perl-install/bootsplash.pm | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'perl-install/bootsplash.pm') diff --git a/perl-install/bootsplash.pm b/perl-install/bootsplash.pm index e657f6bf3..6507e46ef 100644 --- a/perl-install/bootsplash.pm +++ b/perl-install/bootsplash.pm @@ -3,10 +3,6 @@ package bootsplash; use common; use Xconfig::resolution_and_depth; -use Exporter; -our @ISA = qw(Exporter); -our %EXPORT_TAGS = (drawing => [qw(rectangle2xywh xywh2rectangle distance farthest nearest)]); -our @EXPORT_OK = map { @$_ } values %EXPORT_TAGS; my $themes_dir = "/usr/share/bootsplash/themes"; my $themes_config_dir = "/etc/bootsplash/themes"; @@ -20,7 +16,7 @@ sub get_framebuffer_resolution() { require bootloader; require fsedit; my $bootloader = bootloader::read(fsedit::get_hds()); - my $x_res = Xconfig::resolution_and_depth::from_bios($bootloader->{default_vga}); + my $x_res = Xconfig::resolution_and_depth::from_bios($bootloader->{default_options}{vga}); $x_res ? ($x_res->{X} . 'x' . $x_res->{Y}, 1) : (first(@resolutions), 0); -- cgit v1.2.1