Hello community, here is the log from the commit of package perl-Bootloader checked in at Fri Sep 14 00:47:16 CEST 2007. -------- --- perl-Bootloader/perl-Bootloader.changes 2007-09-12 16:24:33.000000000 +0200 +++ /mounts/work_src_done/STABLE/perl-Bootloader/perl-Bootloader.changes 2007-09-13 23:14:50.000000000 +0200 @@ -1,0 +2,10 @@ +Thu Sep 13 23:10:58 CEST 2007 - od@suse.de + +- Needed for #309837 and #304515 and others: + - Convert debug messages to milestones in GrubDev2UnixDev() and + UnixDev2GrubDev(): we always want to have logs available when + device translation goes wrong + - Actually log contents of new lines in CreateGrubConfLines() +- Version bump to 0.4.25 + +------------------------------------------------------------------- Old: ---- perl-Bootloader-0.4.24.tar.bz2 New: ---- perl-Bootloader-0.4.25.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Bootloader.spec ++++++ --- /var/tmp/diff_new_pack.L25046/_old 2007-09-14 00:47:07.000000000 +0200 +++ /var/tmp/diff_new_pack.L25046/_new 2007-09-14 00:47:07.000000000 +0200 @@ -1,5 +1,5 @@ # -# spec file for package perl-Bootloader (Version 0.4.24) +# spec file for package perl-Bootloader (Version 0.4.25) # # Copyright (c) 2007 SUSE LINUX Products GmbH, Nuernberg, Germany. # This file and all modifications and additions to the pristine @@ -11,12 +11,12 @@ # norootforbuild Name: perl-Bootloader -Version: 0.4.24 +Version: 0.4.25 Release: 1 Requires: perl >= %{perl_version} Requires: perl-gettext Requires: e2fsprogs -Autoreqprov: on +AutoReqProv: on Group: System/Boot License: GPL v2 or later Summary: Library for Configuring Boot Loaders @@ -66,6 +66,13 @@ /usr/lib/bootloader %changelog +* Thu Sep 13 2007 - od@suse.de +- Needed for #309837 and #304515 and others: + - Convert debug messages to milestones in GrubDev2UnixDev() and + UnixDev2GrubDev(): we always want to have logs available when + device translation goes wrong + - Actually log contents of new lines in CreateGrubConfLines() +- Version bump to 0.4.25 * Wed Sep 12 2007 - od@suse.de - Needed for #309837 and #304515 and others: - Added (pseudo-)timestamps to standalone logging ++++++ perl-Bootloader-0.4.24.tar.bz2 -> perl-Bootloader-0.4.25.tar.bz2 ++++++ diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/perl-Bootloader-0.4.24/lib/Bootloader/Core/GRUB.pm new/perl-Bootloader-0.4.25/lib/Bootloader/Core/GRUB.pm --- old/perl-Bootloader-0.4.24/lib/Bootloader/Core/GRUB.pm 2007-08-22 15:22:35.000000000 +0200 +++ new/perl-Bootloader-0.4.25/lib/Bootloader/Core/GRUB.pm 2007-09-13 23:15:46.000000000 +0200 @@ -385,11 +385,11 @@ my $dev = shift; unless ($dev) { - $self->l_debug ("GRUB::GrubDev2UnixDev: Empty device to translate"); + $self->l_milestone ("GRUB::GrubDev2UnixDev: Empty device to translate"); return $dev; } if ($dev !~ /^\(.*\)$/) { - $self->l_debug ("GRUB::GrubDev2UnixDev: Not translating device $dev"); + $self->l_milestone ("GRUB::GrubDev2UnixDev: Not translating device $dev"); return $dev; } @@ -429,7 +429,7 @@ } $dev = $self->Member2MD ($dev); - $self->l_debug ("GRUB::GrubDev2UnixDev: Translated GRUB->UNIX: $original to $dev"); + $self->l_milestone ("GRUB::GrubDev2UnixDev: Translated GRUB->UNIX: $original to $dev"); return $dev; } @@ -447,12 +447,12 @@ my $dev = shift; unless (defined($dev) and $dev) { - $self->l_debug ("GRUB::UnixDev2GrubDev: Empty device to translate"); + $self->l_milestone ("GRUB::UnixDev2GrubDev: Empty device to translate"); return $dev; } # Seems to be a grub device already if ($dev =~ /^\(.*\)$/) { - $self->l_debug ("GRUB::UnixDev2GrubDev: Not translating device $dev"); + $self->l_milestone ("GRUB::UnixDev2GrubDev: Not translating device $dev"); return $dev; } @@ -511,7 +511,7 @@ $dev = defined ($partition) ? "($dev,$partition)" : "($dev)"; - $self->l_debug ("GRUB::UnixDev2GrubDev: Translated UNIX->GRUB: $original to $dev"); + $self->l_milestone ("GRUB::UnixDev2GrubDev: Translated UNIX->GRUB: $original to $dev"); return $dev; } @@ -998,7 +998,12 @@ foreach my $new_dev (keys (%s1_devices)) { my $line = $self->CreateGrubConfLine ($new_dev, $discswitch, 1); - $self->l_milestone ("GRUB::CreateGrubConfLines: new line created: $line"); + $self->l_milestone ("GRUB::CreateGrubConfLines: new line created:\n\n' " . + join("'\n' ", + map { + $_ . " => '" . $line->{$_} . "'"; + } keys %$line) . "'\n" + ); push @grub_conf_items, $line; } ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... --------------------------------------------------------------------- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org