Hello community, here is the log from the commit of package perl-Bootloader checked in at Sat Apr 8 02:02:48 CEST 2006. -------- --- perl-Bootloader/perl-Bootloader.changes 2006-04-04 18:23:39.000000000 +0200 +++ perl-Bootloader/perl-Bootloader.changes 2006-04-07 17:17:54.000000000 +0200 @@ -2 +2 @@ -Tue Apr 4 18:23:17 CEST 2006 - jplack@suse.de +Fri Apr 7 17:03:05 CEST 2006 - jplack@suse.de @@ -4 +4,2 @@ -- typo fixed +- changed update-bootloader semantic according to #164427 +- bump version to 0.2.18 Old: ---- perl-Bootloader-0.2.17.tar.bz2 New: ---- perl-Bootloader-0.2.18.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Bootloader.spec ++++++ --- /var/tmp/diff_new_pack.fJqnTu/_old 2006-04-08 02:01:50.000000000 +0200 +++ /var/tmp/diff_new_pack.fJqnTu/_new 2006-04-08 02:01:50.000000000 +0200 @@ -1,5 +1,5 @@ # -# spec file for package perl-Bootloader (Version 0.2.17) +# spec file for package perl-Bootloader (Version 0.2.18) # # Copyright (c) 2006 SUSE LINUX Products GmbH, Nuernberg, Germany. # This file and all modifications and additions to the pristine @@ -11,8 +11,8 @@ # norootforbuild Name: perl-Bootloader -Version: 0.2.17 -Release: 2 +Version: 0.2.18 +Release: 1 Requires: perl >= %{perl_version} Requires: perl-gettext Autoreqprov: on @@ -56,8 +56,9 @@ /sbin/update-bootloader %changelog -n perl-Bootloader -* Tue Apr 04 2006 - jplack@suse.de -- typo fixed +* Fri Apr 07 2006 - jplack@suse.de +- changed update-bootloader semantic according to #164427 +- bump version to 0.2.18 * Mon Apr 03 2006 - jplack@suse.de - extended interface to fix #161755 - bump version to 0.2.17 ++++++ perl-Bootloader-0.2.17.tar.bz2 -> perl-Bootloader-0.2.18.tar.bz2 ++++++ ++++++ update-bootloader ++++++ --- perl-Bootloader/update-bootloader 2006-04-04 18:09:46.000000000 +0200 +++ perl-Bootloader/update-bootloader 2006-04-07 17:17:54.000000000 +0200 @@ -224,20 +224,21 @@ pod2usage("Please specify name and kernel image for new section") unless $opt_name and $opt_image; - if (not $opt_force and - CountSections(type=>"$type", image => "$opt_image") != 0) + if (CountSections(type => "$type", image => "$opt_image") != 0) { - pod2usage("There are already sections with image '$opt_image'"); + if (not $opt_force) { + pod2usage("There are already sections with image '$opt_image'"); + } + } else { + my @params = ( + name =>$opt_name, + image=>$opt_image, + ); + push @params, xen => "/boot/xen.gz" if $type eq "xen"; + push @params, initrd=> $opt_initrd if $opt_initrd; + + AddSection(type=>"$type", default=>$opt_default, @params); } - - my @params = ( - name =>$opt_name, - image=>$opt_image, - ); - push @params, xen => "/boot/xen.gz" if $type eq "xen"; - push @params, initrd=> $opt_initrd if $opt_initrd; - - AddSection(type=>"$type", default=>$opt_default, @params); } if (defined $oper{remove}) { @@ -250,15 +251,15 @@ push @params, name =>$opt_name if $opt_name; my $num = CountSections(@params); - unless ($opt_force) { - if ($num > 1) { + if ($num > 0) { + if ($num > 1 and not $opt_force) { pod2usage("There are more than one section with image '$opt_image'"); - } elsif ($num == 0) { - pod2usage("There in no section with image '$opt_image'"); + } else { + RemoveSections(@params); } + } elsif (not $opt_force) { + pod2usage("There in no section with image '$opt_image'"); } - - RemoveSections(@params); } if (defined $oper{refresh}) { ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun...