Hello community, here is the log from the commit of package perl-Bootloader checked in at Wed Apr 19 23:25:25 CEST 2006. -------- --- perl-Bootloader/perl-Bootloader.changes 2006-04-19 17:09:07.000000000 +0200 +++ STABLE/perl-Bootloader/perl-Bootloader.changes 2006-04-19 19:47:47.000000000 +0200 @@ -1,0 +2,7 @@ +Wed Apr 19 19:34:52 CEST 2006 - agruen@suse.de + +- Fix a bug in CountSections(), and be more specific in + update-bootloader, even though it shouldn't be necessary with + the fix. + +------------------------------------------------------------------- New: ---- fix.diff ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Bootloader.spec ++++++ --- /var/tmp/diff_new_pack.wT3RuW/_old 2006-04-19 23:23:19.000000000 +0200 +++ /var/tmp/diff_new_pack.wT3RuW/_new 2006-04-19 23:23:19.000000000 +0200 @@ -12,7 +12,7 @@ Name: perl-Bootloader Version: 0.2.20 -Release: 3 +Release: 5 Requires: perl >= %{perl_version} Requires: perl-gettext Autoreqprov: on @@ -21,6 +21,7 @@ Summary: Library for Configuring Boot Loaders Source: perl-Bootloader-%{version}.tar.bz2 Source1: update-bootloader +Patch: fix.diff BuildRoot: %{_tmppath}/%{name}-%{version}-build %description @@ -35,6 +36,7 @@ %prep #setup -n Bootloader-%{version} -q %setup -q +%patch -p1 %build perl Makefile.PL @@ -57,6 +59,10 @@ %changelog -n perl-Bootloader * Wed Apr 19 2006 - agruen@suse.de +- Fix a bug in CountSections(), and be more specific in + update-bootloader, even though it shouldn't be necessary with + the fix. +* Wed Apr 19 2006 - agruen@suse.de - Change option --xen to --xen-kernel=... (161197). - Fix a bug when removing xen bootloader entries. * Wed Apr 12 2006 - sf@suse.de ++++++ fix.diff ++++++ Index: perl-Bootloader-0.2.20/lib/Bootloader/Tools.pm =================================================================== --- perl-Bootloader-0.2.20.orig/lib/Bootloader/Tools.pm +++ perl-Bootloader-0.2.20/lib/Bootloader/Tools.pm @@ -376,7 +376,7 @@ sub AddSection { # internal: does section match with set of tags sub match_section { my ($sect_ref, $opt_ref,) = @_; - my $match = 1; + my $match = 0; foreach my $opt (keys %{$opt_ref}) { next unless exists $sect_ref->{"$opt"}; ++++++ update-bootloader ++++++ --- perl-Bootloader/update-bootloader 2006-04-19 17:08:00.000000000 +0200 +++ STABLE/perl-Bootloader/update-bootloader 2006-04-19 19:47:19.000000000 +0200 @@ -226,7 +226,7 @@ unless $opt_name and $opt_image; - if (CountSections(image => "$opt_image") != 0) + if (CountSections(type => $type, image => "$opt_image") != 0) { if (not $opt_force) { pod2usage("There are already sections with image '$opt_image'"); @@ -246,7 +246,7 @@ } if (defined $oper{remove}) { - my $num = CountSections(image => "$opt_image"); + my $num = CountSections(type => $type, image => "$opt_image"); if ($num > 0) { if ($num > 1 and not $opt_force) { pod2usage("There is more than one section with image '$opt_image'"); ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun...
participants (1)
-
root@suse.de