Hello community, here is the log from the commit of package perl-Bootloader checked in at Mon Jul 3 21:07:18 CEST 2006. -------- --- perl-Bootloader/perl-Bootloader.changes 2006-07-03 12:31:03.000000000 +0200 +++ perl-Bootloader/perl-Bootloader.changes 2006-07-03 20:43:35.000000000 +0200 @@ -1,0 +2,12 @@ +Mon Jul 3 20:40:11 CEST 2006 - jplack@suse.de + +- fix CountSections/GetSectionList which always returned all + sections + +------------------------------------------------------------------- +Mon Jul 3 18:54:57 CEST 2006 - jplack@suse.de + +- fix raid1 support in Tools.pm, still more problems in + Grub.pm:GrubPath2UnixPath + +------------------------------------------------------------------- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Bootloader.spec ++++++ --- /var/tmp/diff_new_pack.w6n00Y/_old 2006-07-03 21:07:04.000000000 +0200 +++ /var/tmp/diff_new_pack.w6n00Y/_new 2006-07-03 21:07:04.000000000 +0200 @@ -12,7 +12,7 @@ Name: perl-Bootloader Version: 0.2.25 -Release: 2 +Release: 3 Requires: perl >= %{perl_version} Requires: perl-gettext Autoreqprov: on @@ -57,6 +57,12 @@ %changelog -n perl-Bootloader * Mon Jul 03 2006 - jplack@suse.de +- fix CountSections/GetSectionList which always returned all + sections +* Mon Jul 03 2006 - jplack@suse.de +- fix raid1 support in Tools.pm, still more problems in + Grub.pm:GrubPath2UnixPath +* Mon Jul 03 2006 - jplack@suse.de - fixed severe syntax problems introduced by r113&r111 in Tools.pm and broke update-bootloader * Wed Jun 28 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/Tools.pm new/perl-Bootloader-0.2.25/lib/Bootloader/Tools.pm --- old/perl-Bootloader-0.2.25/lib/Bootloader/Tools.pm 2006-07-03 12:20:13.000000000 +0200 +++ new/perl-Bootloader-0.2.25/lib/Bootloader/Tools.pm 2006-07-03 20:43:35.000000000 +0200 @@ -231,21 +231,21 @@ my @members = (); open (MD, "/sbin/mdadm --detail --verbose --scan |") || die ("Failed getting information about MD arrays"); + my ($array, $level, $num_devices); while (my $line = <MD>) { chomp ($line); - my ($array, $level, $num_devices); if ($line =~ /ARRAY (\S+) level=(\w+) num-devices=(\d+)/) { ($array, $level, $num_devices) = ($1, $2, $3); } - elsif ($level == "raid1" and $line =~ /devices=(\S+)/) + elsif ($level eq "raid1" and $line =~ /devices=(\S+)/) { # we could test $num_device against number of found devices to # detect degradedmode but that does not matter here (really?) - $mapping{$array} = split(/,/, $1); + $mapping{$array} = [ split(/,/, $1) ]; } } close( MD ); @@ -599,13 +599,13 @@ # FIXME: Add documentation =cut -sub GetSectionsList { +sub GetSectionList { my %option = @_; normalize_options(\%option); my @sections = @{$lib_ref->GetSections ()}; my @section_names = map { - $_->{"name"} if match_section($_, \%option); + match_section($_, \%option) ? $_->{"name"} : (); } @sections; DumpLog (); ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... --------------------------------------------------------------------- To unsubscribe, e-mail: opensuse-commit-unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit-help@opensuse.org