Hello community, here is the log from the commit of package perl-Bootloader checked in at Thu Oct 23 22:40:07 CEST 2008. -------- --- perl-Bootloader/perl-Bootloader.changes 2008-10-13 17:00:59.000000000 +0200 +++ /d/STABLE/perl-Bootloader/perl-Bootloader.changes 2008-10-23 17:17:01.422829000 +0200 @@ -2 +2 @@ -Mon Oct 13 16:23:55 CEST 2008 - jsrain@suse.cz +Thu Oct 23 17:15:02 CEST 2008 - jreidinger@suse.cz @@ -4 +4,8 @@ -- add workaround for live installation (bnc #432699) (jreidinger) +- improve logging library input/output +- fix bug with xen kernel in xen enviroment (bnc #436899) +- 0.4.76 + +------------------------------------------------------------------- +Thu Oct 23 12:54:40 CEST 2008 - jreidinger@suse.cz + +- add workaround for live installation (bnc #432699) calling whatdependson for head-i586 Old: ---- perl-Bootloader-0.4.75.tar.bz2 New: ---- perl-Bootloader-0.4.76.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Bootloader.spec ++++++ --- /var/tmp/diff_new_pack.y16611/_old 2008-10-23 22:39:34.000000000 +0200 +++ /var/tmp/diff_new_pack.y16611/_new 2008-10-23 22:39:34.000000000 +0200 @@ -1,5 +1,5 @@ # -# spec file for package perl-Bootloader (Version 0.4.75) +# spec file for package perl-Bootloader (Version 0.4.76) # # Copyright (c) 2008 SUSE LINUX Products GmbH, Nuernberg, Germany. # @@ -19,7 +19,7 @@ Name: perl-Bootloader -Version: 0.4.75 +Version: 0.4.76 Release: 1 Requires: perl-base = %{perl_version} Requires: e2fsprogs @@ -74,8 +74,12 @@ /usr/lib/bootloader %changelog -* Mon Oct 13 2008 jsrain@suse.cz -- add workaround for live installation (bnc #432699) (jreidinger) +* Thu Oct 23 2008 jreidinger@suse.cz +- improve logging library input/output +- fix bug with xen kernel in xen enviroment (bnc #436899) +- 0.4.76 +* Thu Oct 23 2008 jreidinger@suse.cz +- add workaround for live installation (bnc #432699) - 0.4.75 * Thu Oct 09 2008 jreidinger@suse.cz - use option relocatable only on ia64 architecture (FATE #301882) ++++++ perl-Bootloader-0.4.75.tar.bz2 -> perl-Bootloader-0.4.76.tar.bz2 ++++++ diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/perl-Bootloader-0.4.75/lib/Bootloader/Core/GRUB.pm new/perl-Bootloader-0.4.76/lib/Bootloader/Core/GRUB.pm --- old/perl-Bootloader-0.4.75/lib/Bootloader/Core/GRUB.pm 2008-10-13 13:23:16.000000000 +0200 +++ new/perl-Bootloader-0.4.76/lib/Bootloader/Core/GRUB.pm 2008-10-23 15:26:35.000000000 +0200 @@ -591,10 +591,11 @@ else { foreach my $udev_link (@udev_links) { chomp ($udev_link); + $self->l_milestone ("GRUB::UnixDev2GrubDev: try udev link $udev_link."); $udev_link = "/dev/" . $udev_link; if (exists $self->{"device_map"}->{$udev_link} ) { $dev = $self->{"device_map"}->{$udev_link}; - return "($dev)" if ( $kernel_dev eq $original ); #disk dev, no partition + return "($dev)" if ( $kernel_dev eq $original or $original eq $udev_link ); #disk dev, no partition } } } @@ -1550,18 +1551,21 @@ if ($line_ref->{"key"} eq "module") { $modules++; } - elsif ($line_ref->{"key"} eq "kernel" && $line_ref->{"value"} =~ m/xen/) { - $kernel_xen = 1; - } + elsif ($line_ref->{"key"} eq "kernel" or $line_ref->{"key"} eq "image") + { + # kernel name contain xen it should be xen, but also image section in xen enviroment + if ( $line_ref->{"value"} =~ m/xen/ ) + { + $kernel_xen = 1; + } + $image = 1; + } elsif ($line_ref->{"key"} eq "chainloader") { $chainloader = 1; } elsif ($line_ref->{"key"} eq "configfile") { $configfile = 1; } - elsif ($line_ref->{"key"} eq "kernel" or $line_ref->{"key"} eq "image") { - $image = 1; - } } if ($configfile) { return "menu"; diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/perl-Bootloader-0.4.75/lib/Bootloader/Core.pm new/perl-Bootloader-0.4.76/lib/Bootloader/Core.pm --- old/perl-Bootloader-0.4.75/lib/Bootloader/Core.pm 2008-10-09 15:34:21.000000000 +0200 +++ new/perl-Bootloader-0.4.76/lib/Bootloader/Core.pm 2008-10-23 15:26:35.000000000 +0200 @@ -1806,6 +1806,21 @@ if (defined ($self->{$key})) { $ret{$key} = $self->{$key}; + if ($key eq "sections") + { + foreach my $section (@{$ret{$key}}) + { + $self->l_milestone ("Core::GetSettings: store: $key:" . join( " - ", %{$section})); + } + } + elsif ($key eq "global" or $key eq "device_map") + { + $self->l_milestone ("Core::GetSettings: store: $key:" . join( ",", %{$ret{$key}})); + } + else + { + $self->l_milestone ("Core::GetSettings: store: $key:" . join( ",", $ret{$key})); + } } } return \%ret; @@ -1830,7 +1845,21 @@ if (defined ($settings{$key})) { $self->{$key} = $settings{$key}; - $self->l_milestone ("Core::SetSettings: store: $key:" . join( ",", $settings{$key})); + if ($key eq "sections") + { + foreach my $section (@{$settings{$key}}) + { + $self->l_milestone ("Core::SetSettings: store: $key:" . join( " - ", %{$section})); + } + } + elsif ($key eq "global" or $key eq "device_map") + { + $self->l_milestone ("Core::SetSettings: store: $key:" . join( ",", %{$settings{$key}})); + } + else + { + $self->l_milestone ("Core::SetSettings: store: $key:" . join( ",", $settings{$key})); + } } } return 1; ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... -- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org