Hello community, here is the log from the commit of package perl-Bootloader checked in at Tue Apr 4 14:24:21 CEST 2006. -------- --- perl-Bootloader/perl-Bootloader.changes 2006-03-27 18:02:34.000000000 +0200 +++ perl-Bootloader/perl-Bootloader.changes 2006-04-04 10:42:40.000000000 +0200 @@ -1,0 +2,6 @@ +Mon Apr 3 20:15:35 CEST 2006 - jplack@suse.de + +- extended interface to fix #161755 +- bump version to 0.2.17 + +------------------------------------------------------------------------ Old: ---- perl-Bootloader-0.2.16.tar.bz2 New: ---- perl-Bootloader-0.2.17.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Bootloader.spec ++++++ --- /var/tmp/diff_new_pack.UkxYQj/_old 2006-04-04 14:23:51.000000000 +0200 +++ /var/tmp/diff_new_pack.UkxYQj/_new 2006-04-04 14:23:51.000000000 +0200 @@ -1,5 +1,5 @@ # -# spec file for package perl-Bootloader (Version 0.2.16) +# spec file for package perl-Bootloader (Version 0.2.17) # # Copyright (c) 2006 SUSE LINUX Products GmbH, Nuernberg, Germany. # This file and all modifications and additions to the pristine @@ -11,7 +11,7 @@ # norootforbuild Name: perl-Bootloader -Version: 0.2.16 +Version: 0.2.17 Release: 1 Requires: perl >= %{perl_version} Requires: perl-gettext @@ -56,6 +56,9 @@ /sbin/update-bootloader %changelog -n perl-Bootloader +* Mon Apr 03 2006 - jplack@suse.de +- extended interface to fix #161755 +- bump version to 0.2.17 * Mon Mar 27 2006 - jplack@suse.de - always regenerate our 'meta global' section to avoid #160595 - bump version to 0.2.16 ++++++ perl-Bootloader-0.2.16.tar.bz2 -> perl-Bootloader-0.2.17.tar.bz2 ++++++ diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/perl-Bootloader-0.2.16/lib/Bootloader/Core/ELILO.pm new/perl-Bootloader-0.2.17/lib/Bootloader/Core/ELILO.pm --- old/perl-Bootloader-0.2.16/lib/Bootloader/Core/ELILO.pm 2006-03-17 17:13:19.000000000 +0100 +++ new/perl-Bootloader-0.2.17/lib/Bootloader/Core/ELILO.pm 2006-04-03 17:36:14.000000000 +0200 @@ -53,8 +53,9 @@ sub new { my $self = shift; + my $old = shift; - my $loader = $self->SUPER::new (); + my $loader = $self->SUPER::new ($old); $loader->{"default_global_lines"} = [ { "key" => "timeout", "value" => 80 }, { "key" => "read-only", "value" => "" }, diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/perl-Bootloader-0.2.16/lib/Bootloader/Core/GRUB.pm new/perl-Bootloader-0.2.17/lib/Bootloader/Core/GRUB.pm --- old/perl-Bootloader-0.2.16/lib/Bootloader/Core/GRUB.pm 2006-02-27 19:01:48.000000000 +0100 +++ new/perl-Bootloader-0.2.17/lib/Bootloader/Core/GRUB.pm 2006-04-03 17:36:14.000000000 +0200 @@ -85,8 +85,9 @@ sub new { my $self = shift; + my $old = shift; - my $loader = $self->SUPER::new (); + my $loader = $self->SUPER::new ($old); bless ($loader); $loader->l_milestone ("GRUB::new: Created GRUB instance"); return $loader; diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/perl-Bootloader-0.2.16/lib/Bootloader/Core/LILO.pm new/perl-Bootloader-0.2.17/lib/Bootloader/Core/LILO.pm --- old/perl-Bootloader-0.2.16/lib/Bootloader/Core/LILO.pm 2006-03-17 17:13:19.000000000 +0100 +++ new/perl-Bootloader-0.2.17/lib/Bootloader/Core/LILO.pm 2006-04-03 17:36:14.000000000 +0200 @@ -53,8 +53,9 @@ sub new { my $self = shift; + my $old = shift; - my $loader = $self->SUPER::new (); + my $loader = $self->SUPER::new ($old); $loader->{"default_global_lines"} = [ { "key" => "menu-scheme", "value" => "Wb:kw:Wb:Wb" }, { "key" => "timeout", "value" => 80 }, diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/perl-Bootloader-0.2.16/lib/Bootloader/Core/PowerLILO.pm new/perl-Bootloader-0.2.17/lib/Bootloader/Core/PowerLILO.pm --- old/perl-Bootloader-0.2.16/lib/Bootloader/Core/PowerLILO.pm 2006-03-17 17:13:19.000000000 +0100 +++ new/perl-Bootloader-0.2.17/lib/Bootloader/Core/PowerLILO.pm 2006-04-03 17:36:14.000000000 +0200 @@ -238,8 +238,9 @@ sub new { my $self = shift; + my $old = shift; - my $loader = $self->SUPER::new (); + my $loader = $self->SUPER::new ($old); $loader->{"default_global_lines"} = [ { key => "activate", value => "" }, ]; diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/perl-Bootloader-0.2.16/lib/Bootloader/Core/ZIPL.pm new/perl-Bootloader-0.2.17/lib/Bootloader/Core/ZIPL.pm --- old/perl-Bootloader-0.2.16/lib/Bootloader/Core/ZIPL.pm 2006-03-27 17:44:46.000000000 +0200 +++ new/perl-Bootloader-0.2.17/lib/Bootloader/Core/ZIPL.pm 2006-04-03 17:36:14.000000000 +0200 @@ -145,8 +145,9 @@ sub new { my $self = shift; + my $old = shift; - my $loader = $self->SUPER::new (); + my $loader = $self->SUPER::new ($old); $loader->{"default_global_lines"} = [ ]; diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/perl-Bootloader-0.2.16/lib/Bootloader/Core.pm new/perl-Bootloader-0.2.17/lib/Bootloader/Core.pm --- old/perl-Bootloader-0.2.16/lib/Bootloader/Core.pm 2006-03-17 17:13:19.000000000 +0100 +++ new/perl-Bootloader-0.2.17/lib/Bootloader/Core.pm 2006-04-03 17:36:14.000000000 +0200 @@ -821,17 +821,24 @@ #module interface =item -C<< $obj_ref = Bootloader::Core->new (); >> +C<< $obj_ref = Bootloader::Core->new ($old); >> Creates an instance of the Bootloader::Core class. - +Optional parameter 'old' is object reference to former bootloader =cut sub new { my $self = shift; + my $old = shift; + + my $loader = {}; + # keep old settings if given as parameter + if (defined($old)) { + foreach my $key (keys %old) { + $loader->{$key} = $old->{$key}; + } + } + $loader{"log_records"} = []; - my $loader = { - "log_records" => [], - }; bless ($loader); return $loader; } diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/perl-Bootloader-0.2.16/lib/Bootloader/Library.pm new/perl-Bootloader-0.2.17/lib/Bootloader/Library.pm --- old/perl-Bootloader-0.2.16/lib/Bootloader/Library.pm 2006-03-03 15:48:07.000000000 +0100 +++ new/perl-Bootloader-0.2.17/lib/Bootloader/Library.pm 2006-04-03 17:36:14.000000000 +0200 @@ -123,32 +123,32 @@ my $self = shift; my $bootloader = shift; - my $loader = undef; + my $loader = exists $self->{"loader"} ? $self->{"loader"} : undef; if ($bootloader eq "grub") { - $loader = Bootloader::Core::GRUB->new (); + $loader = Bootloader::Core::GRUB->new ($loader); } elsif ($bootloader eq "lilo") { - $loader = Bootloader::Core::LILO->new (); + $loader = Bootloader::Core::LILO->new ($loader); } elsif ($bootloader eq "elilo") { - $loader = Bootloader::Core::ELILO->new (); + $loader = Bootloader::Core::ELILO->new ($loader); } elsif ($bootloader eq "zipl") { - $loader = Bootloader::Core::ZIPL->new (); + $loader = Bootloader::Core::ZIPL->new ($loader); } elsif ($bootloader eq "ppc") { - $loader = Bootloader::Core::PowerLILO->new (); + $loader = Bootloader::Core::PowerLILO->new ($loader); } else { # FIXME: handle case 'none' - $loader = Bootloader::Core->new (); + $loader = Bootloader::Core->new ($loader); $loader->l_error ("Bootloader::Library::Initialize: Initializing for unknown bootloader $bootloader"); } @@ -160,7 +160,7 @@ C<< $status = Bootloader::Library->DefineMountPoints (\%mountpoints); >> Defines mount points in the system so that the library -needn't probe them itself when needed. +does not need to probe them itself when needed. Parameter (mountpoints) is a hash reference (key is mountpoint, value device). Returns undef on fail, defined nonzero value otherwise. @@ -296,7 +296,7 @@ =item C<< $status = Bootloader::Library->WriteSettings (); >> -Writes the settings to the system. Doesn't activate the bootloader +Writes the settings to the system. Does not activate the bootloader or the written settings, InitializeBootloader or UpdateBootloader functions must be used for it. Returns undef on fail, defined nonzero value otherwise. @@ -805,3 +805,12 @@ } 1; + +# +# Local variables: +# mode: perl +# mode: font-lock +# mode: auto-fill +# fill-column: 78 +# End: +# ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun...
participants (1)
-
root@suse.de