Hello community, here is the log from the commit of package perl-Bootloader checked in at Tue Aug 21 18:41:22 CEST 2007. -------- --- perl-Bootloader/perl-Bootloader.changes 2007-08-20 16:55:23.000000000 +0200 +++ /mounts/work_src_done/STABLE/perl-Bootloader/perl-Bootloader.changes 2007-08-21 18:18:35.000000000 +0200 @@ -1,0 +2,11 @@ +Tue Aug 21 18:16:41 CEST 2007 - aosthof@suse.de + +- Check for defined keys in GRUB.pm to prevent perl warnings + (#302174) + +------------------------------------------------------------------- +Tue Aug 21 15:22:05 CEST 2007 - aosthof@suse.de + +- Removed requirement of mdadm (#302052) + +------------------------------------------------------------------- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Bootloader.spec ++++++ --- /var/tmp/diff_new_pack.h11415/_old 2007-08-21 18:40:14.000000000 +0200 +++ /var/tmp/diff_new_pack.h11415/_new 2007-08-21 18:40:14.000000000 +0200 @@ -12,10 +12,10 @@ Name: perl-Bootloader Version: 0.4.23 -Release: 1 +Release: 3 Requires: perl >= %{perl_version} Requires: perl-gettext -Requires: mdadm e2fsprogs +Requires: e2fsprogs Autoreqprov: on Group: System/Boot License: GPL v2 or later @@ -66,6 +66,11 @@ /usr/lib/bootloader %changelog +* Tue Aug 21 2007 - aosthof@suse.de +- Check for defined keys in GRUB.pm to prevent perl warnings + (#302174) +* Tue Aug 21 2007 - aosthof@suse.de +- Removed requirement of mdadm (#302052) * Mon Aug 20 2007 - aosthof@suse.de - Provided functionality for adding of new boot entries (#300930) * Thu Aug 16 2007 - aosthof@suse.de ++++++ perl-Bootloader-0.4.23.tar.bz2 ++++++ diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/perl-Bootloader-0.4.23/lib/Bootloader/Core/GRUB.pm new/perl-Bootloader-0.4.23/lib/Bootloader/Core/GRUB.pm --- old/perl-Bootloader-0.4.23/lib/Bootloader/Core/GRUB.pm 2007-08-14 14:17:16.000000000 +0200 +++ new/perl-Bootloader-0.4.23/lib/Bootloader/Core/GRUB.pm 2007-08-21 18:18:35.000000000 +0200 @@ -1629,6 +1629,12 @@ foreach my $line_ref (@lines) { my $key = $line_ref->{"key"}; my $val = $line_ref->{"value"}; + + # Check if key is defined to prevent perl warnings + if (!defined($key)) { + next; + } + my ($type) = split(/:/, $go->{$key}||""); if (defined ($key) and (($key eq "root") or ($key eq "rootnoverify"))) { $grub_root = $val; ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... --------------------------------------------------------------------- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org