Hello community, here is the log from the commit of package perl-Bootloader checked in at Tue Dec 2 15:40:35 CET 2008. -------- --- perl-Bootloader/perl-Bootloader.changes 2008-11-27 16:41:14.000000000 +0100 +++ /mounts/work_src_done/STABLE/perl-Bootloader/perl-Bootloader.changes 2008-12-02 13:58:21.906404000 +0100 @@ -1,0 +2,8 @@ +Tue Dec 2 13:55:11 CET 2008 - jreidinger@suse.cz + +- fix menu section in grub and add it to test-suite (bnc #449863) +- create mapping of multipath to real device and back (bnc #448110) +- properly enclose arguments for commands (bnc #447591) +- 0.4.81 + +------------------------------------------------------------------- calling whatdependson for head-i586 Old: ---- perl-Bootloader-0.4.80.tar.bz2 New: ---- perl-Bootloader-0.4.81.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Bootloader.spec ++++++ --- /var/tmp/diff_new_pack.m15206/_old 2008-12-02 15:36:38.000000000 +0100 +++ /var/tmp/diff_new_pack.m15206/_new 2008-12-02 15:36:38.000000000 +0100 @@ -1,5 +1,5 @@ # -# spec file for package perl-Bootloader (Version 0.4.80) +# spec file for package perl-Bootloader (Version 0.4.81) # # Copyright (c) 2008 SUSE LINUX Products GmbH, Nuernberg, Germany. # @@ -19,7 +19,7 @@ Name: perl-Bootloader -Version: 0.4.80 +Version: 0.4.81 Release: 1 Requires: perl-base = %{perl_version} Requires: e2fsprogs @@ -78,6 +78,11 @@ /boot/boot.readme %changelog +* Tue Dec 02 2008 jreidinger@suse.cz +- fix menu section in grub and add it to test-suite (bnc #449863) +- create mapping of multipath to real device and back (bnc #448110) +- properly enclose arguments for commands (bnc #447591) +- 0.4.81 * Thu Nov 27 2008 jreidinger@suse.cz - serial console handling in append moved to interface (bnc #449726) ++++++ perl-Bootloader-0.4.80.tar.bz2 -> perl-Bootloader-0.4.81.tar.bz2 ++++++ diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/perl-Bootloader-0.4.80/lib/Bootloader/Core/GRUB.pm new/perl-Bootloader-0.4.81/lib/Bootloader/Core/GRUB.pm --- old/perl-Bootloader-0.4.80/lib/Bootloader/Core/GRUB.pm 2008-11-27 16:35:44.000000000 +0100 +++ new/perl-Bootloader-0.4.81/lib/Bootloader/Core/GRUB.pm 2008-12-01 13:30:49.000000000 +0100 @@ -971,7 +971,7 @@ if ( defined $self->{"multipath"} ){ while ((my $phys, my $mp) = each (%{$self->{"multipath"}})){ if ( $mp eq $self->GetKernelDevice($unix) ) { - $unix = $mp; + $unix = $phys; } } } @@ -1863,7 +1863,7 @@ "value" => $self->CreateChainloaderLine (\%sectinfo, $grub_root), }; } - elsif ($key eq "configfile" && $type eq "other") + elsif ($key eq "configfile" && $type eq "menu") { push @lines, { "key" => $key, diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/perl-Bootloader-0.4.80/lib/Bootloader/Tools.pm new/perl-Bootloader-0.4.81/lib/Bootloader/Tools.pm --- old/perl-Bootloader-0.4.80/lib/Bootloader/Tools.pm 2008-11-27 16:35:44.000000000 +0100 +++ new/perl-Bootloader-0.4.81/lib/Bootloader/Tools.pm 2008-12-02 13:54:19.000000000 +0100 @@ -446,7 +446,7 @@ my $line = ""; $line = shift @result if (scalar @result != 0); while (scalar @result != 0){ - if ($line !~ m/^(.*)dm-\d+.*$/){ + if ($line !~ m/^(\S+)\s*dm-\d+.*$/){ next; } my $multipathdev = "/dev/mapper/$1"; @@ -456,7 +456,7 @@ last; } if ($line =~ m/\d+:\d+:\d+:\d+\s+(\S+)\s+/){ - $ret{$1} = $multipathdev; + $ret{"/dev/$1"} = $multipathdev; } } } @@ -625,7 +625,7 @@ if ($dm_devs[0] !~ /No devices found/) { foreach my $dmdisk (@dm_devs) { - my @tables = qx{$dmsetup table $dmdisk}; + my @tables = qx{$dmsetup table '$dmdisk'}; foreach my $line (@tables) { my @content = split(/ /, $line); @@ -659,7 +659,7 @@ return 0; } - my $cmd = "$dmsetup info -c --noheadings -oname $dev"; + my $cmd = "$dmsetup info -c --noheadings -oname '$dev'"; if (my $test = qx{$cmd 2>/dev/null}){ chomp $test; @@ -716,7 +716,7 @@ my $dmdev = shift; my $majmin; - $majmin = qx{$dmsetup info -c --noheadings -o major,minor $dmdev}; + $majmin = qx{$dmsetup info -c --noheadings -o major,minor '$dmdev'}; return $majmin; } ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... -- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org