Mailinglist Archive: opensuse-commit (705 mails)

< Previous Next >
commit perl-Bootloader
  • From: root@xxxxxxx (h_root)
  • Date: Mon, 3 Jul 2006 21:07:18 +0200 (CEST)
  • Message-id: <20060703190718.69D1C949A4@xxxxxxxxxxxxxxx>

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@xxxxxxx
+
+- fix CountSections/GetSectionList which always returned all
+ sections
+
+-------------------------------------------------------------------
+Mon Jul 3 18:54:57 CEST 2006 - jplack@xxxxxxx
+
+- 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@xxxxxxx
+- fix CountSections/GetSectionList which always returned all
+ sections
+* Mon Jul 03 2006 - jplack@xxxxxxx
+- fix raid1 support in Tools.pm, still more problems in
+ Grub.pm:GrubPath2UnixPath
+* Mon Jul 03 2006 - jplack@xxxxxxx
- fixed severe syntax problems introduced by r113&r111 in Tools.pm
and broke update-bootloader
* Wed Jun 28 2006 - jplack@xxxxxxx

++++++ 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@xxxxxxxxxxxx
For additional commands, e-mail: opensuse-commit-help@xxxxxxxxxxxx

< Previous Next >