Hello community, here is the log from the commit of package perl-Bootloader checked in at Tue Jul 4 00:13:43 CEST 2006. -------- --- perl-Bootloader/perl-Bootloader.changes 2006-07-03 20:43:35.000000000 +0200 +++ perl-Bootloader/perl-Bootloader.changes 2006-07-03 23:22:21.000000000 +0200 @@ -1,0 +2,6 @@ +Mon Jul 3 23:18:44 CEST 2006 - jplack@suse.de + +- several 'each' iterators for global hashes not properly reset. + This broke root-on-raid1 support so far. + +------------------------------------------------------------------- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Bootloader.spec ++++++ --- /var/tmp/diff_new_pack.0Y2qjb/_old 2006-07-04 00:13:38.000000000 +0200 +++ /var/tmp/diff_new_pack.0Y2qjb/_new 2006-07-04 00:13:38.000000000 +0200 @@ -12,7 +12,7 @@ Name: perl-Bootloader Version: 0.2.25 -Release: 3 +Release: 4 Requires: perl >= %{perl_version} Requires: perl-gettext Autoreqprov: on @@ -57,6 +57,9 @@ %changelog -n perl-Bootloader * Mon Jul 03 2006 - jplack@suse.de +- several 'each' iterators for global hashes not properly reset. + This broke root-on-raid1 support so far. +* Mon Jul 03 2006 - jplack@suse.de - fix CountSections/GetSectionList which always returned all sections * Mon Jul 03 2006 - jplack@suse.de ++++++ perl-Bootloader-0.2.25.tar.bz2 ++++++ diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/perl-Bootloader-0.2.25/lib/Bootloader/Core.pm new/perl-Bootloader-0.2.25/lib/Bootloader/Core.pm --- old/perl-Bootloader-0.2.25/lib/Bootloader/Core.pm 2006-06-28 19:30:58.000000000 +0200 +++ new/perl-Bootloader-0.2.25/lib/Bootloader/Core.pm 2006-07-03 23:22:21.000000000 +0200 @@ -237,12 +237,8 @@ my $self = shift; my $dev = shift; - while ((my $mp, my $d) = each (%{$self->{"mountpoints"}})) - { - if ($d eq $dev) - { - return $mp; - } + foreach my $mp ( keys %{$self->{"mountpoints"}}) { + return $mp if $self->{"mountpoints"}->{$mp} eq $dev; } return undef; } @@ -297,6 +293,9 @@ my $self = shift; my $member = shift; + # reset 'each' iterator + my $dummy = keys %{$self->{"md_arrays"}}; + while ((my $md, my $mem_ref) = each (%{$self->{"md_arrays"}})) { foreach my $mem (@{$mem_ref}) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... --------------------------------------------------------------------- To unsubscribe, e-mail: opensuse-commit-unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit-help@opensuse.org