Hello community, here is the log from the commit of package perl-Bootloader checked in at Thu Mar 1 22:09:42 CET 2007. -------- --- perl-Bootloader/perl-Bootloader.changes 2007-02-14 12:02:42.000000000 +0100 +++ /mounts/work_src_done/STABLE/perl-Bootloader/perl-Bootloader.changes 2007-02-28 11:51:17.000000000 +0100 @@ -1,0 +2,20 @@ +Wed Feb 28 11:46:53 CET 2007 - aosthof@suse.de + +- Fixed a perl warning bug in Core/GRUB.pm (#248211) + +------------------------------------------------------------------- +Wed Feb 21 14:29:18 CET 2007 - aosthof@suse.de + +- Corrected a typo in Core.pm + +------------------------------------------------------------------- +Fri Feb 16 16:45:48 CET 2007 - jplack@suse.de + +- Fallback to first section as default boot if bogus value is given + +------------------------------------------------------------------- +Thu Feb 15 16:41:15 CET 2007 - jplack@suse.de + +- handle boolean options correctly in GRUB (#244530) + +------------------------------------------------------------------- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Bootloader.spec ++++++ --- /var/tmp/diff_new_pack.YB8462/_old 2007-03-01 22:08:21.000000000 +0100 +++ /var/tmp/diff_new_pack.YB8462/_new 2007-03-01 22:08:21.000000000 +0100 @@ -12,7 +12,7 @@ Name: perl-Bootloader Version: 0.4.11 -Release: 1 +Release: 3 Requires: perl >= %{perl_version} Requires: perl-gettext Requires: mdadm e2fsprogs @@ -62,7 +62,15 @@ /sbin/update-bootloader /usr/lib/bootloader -%changelog -n perl-Bootloader +%changelog +* Wed Feb 28 2007 - aosthof@suse.de +- Fixed a perl warning bug in Core/GRUB.pm (#248211) +* Wed Feb 21 2007 - aosthof@suse.de +- Corrected a typo in Core.pm +* Fri Feb 16 2007 - jplack@suse.de +- Fallback to first section as default boot if bogus value is given +* Thu Feb 15 2007 - jplack@suse.de +- handle boolean options correctly in GRUB (#244530) * Wed Feb 14 2007 - aosthof@suse.de - manually merge SLES10 branch with trunk, part 4/4: - fixed function SplitDevPath() in src/Core.pm to avoid an endless ++++++ perl-Bootloader-0.4.11.tar.bz2 ++++++ diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/perl-Bootloader-0.4.11/lib/Bootloader/Core/GRUB.pm new/perl-Bootloader-0.4.11/lib/Bootloader/Core/GRUB.pm --- old/perl-Bootloader-0.4.11/lib/Bootloader/Core/GRUB.pm 2006-12-08 15:56:04.000000000 +0100 +++ new/perl-Bootloader-0.4.11/lib/Bootloader/Core/GRUB.pm 2007-02-28 11:51:17.000000000 +0100 @@ -1482,7 +1482,7 @@ my $key = $line_ref->{"key"}; my $val = $line_ref->{"value"}; my ($type) = split(/:/, $go->{$key}||""); - if (($key eq "root") or ($key eq "rootnoverify")) { + if (defined ($key) and (($key eq "root") or ($key eq "rootnoverify"))) { $grub_root = $val; $ret{"verifyroot"} = ($key eq "root"); } @@ -1557,13 +1557,13 @@ } elsif ($key eq "default") { - $line_ref->{"value"} = $self->IndexOfSection (delete $globinfo{$key}, $sections_ref); + $line_ref->{"value"} = + $self->IndexOfSection (delete $globinfo{$key}, $sections_ref) || 0; } elsif ($key eq "password") { # FIXME: Do md5 encryption $line_ref->{"value"} = delete $globinfo{$key}; - } elsif ($type eq "path") { @@ -1572,7 +1572,12 @@ # bool values appear in a config file or not. there might be types # like 'yesno' or 'truefalse' in the future which behave differently elsif ($type eq "bool") { - $line_ref->{"value"} = delete $globinfo{$key} ne "true" ? undef : ""; + if (delete $globinfo{$key} ne "true") { + $line_ref = undef; + } + else { + $line_ref->{"value"} = ""; + } } else { @@ -1590,7 +1595,7 @@ my ($type) = split /:/, $go->{$key}; if ($key eq "default") { - $value = $self->IndexOfSection ($value, $sections_ref); + $value = $self->IndexOfSection ($value, $sections_ref) || 0; } # bool values appear in a config file or not elsif ($type eq "bool") { diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/perl-Bootloader-0.4.11/lib/Bootloader/Core.pm new/perl-Bootloader-0.4.11/lib/Bootloader/Core.pm --- old/perl-Bootloader-0.4.11/lib/Bootloader/Core.pm 2007-02-14 12:02:42.000000000 +0100 +++ new/perl-Bootloader-0.4.11/lib/Bootloader/Core.pm 2007-02-21 14:30:39.000000000 +0100 @@ -366,7 +366,7 @@ } if ($mp eq "") { unless (exists $self->{"mountpoints"}{"/"}) { - $self->l_error ("Core::SplitDevPath: Cannot get device for $path, not root mount point set"); + $self->l_error ("Core::SplitDevPath: Cannot get device for $path, no root mount point set"); return undef; } $mp = "/"; ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... --------------------------------------------------------------------- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org