![](https://seccdn.libravatar.org/avatar/e2145bc5cf53dda95c308a3c75e8fef3.jpg?s=120&d=mm&r=g)
Hello community, here is the log from the commit of package perl-Bootloader checked in at Wed Sep 12 17:00:50 CEST 2007. -------- --- perl-Bootloader/perl-Bootloader.changes 2007-08-23 12:51:05.000000000 +0200 +++ /mounts/work_src_done/STABLE/perl-Bootloader/perl-Bootloader.changes 2007-09-12 16:24:33.000000000 +0200 @@ -1,0 +2,11 @@ +Wed Sep 12 16:18:04 CEST 2007 - od@suse.de + +- Needed for #309837 and #304515 and others: + - Added (pseudo-)timestamps to standalone logging + - Removed code from update-bootloader to remove old standalone + log file: with the timestamps now the log entries from + different runs of update-bootloader can be discerned +- Minor correction of error message: use ASCII "'" instead of + similar Unicode character + +------------------------------------------------------------------- Old: ---- perl-Bootloader-0.4.23.tar.bz2 New: ---- perl-Bootloader-0.4.24.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Bootloader.spec ++++++ --- /var/tmp/diff_new_pack.v23877/_old 2007-09-12 16:59:53.000000000 +0200 +++ /var/tmp/diff_new_pack.v23877/_new 2007-09-12 16:59:53.000000000 +0200 @@ -1,5 +1,5 @@ # -# spec file for package perl-Bootloader (Version 0.4.23) +# spec file for package perl-Bootloader (Version 0.4.24) # # Copyright (c) 2007 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.4.23 -Release: 5 +Version: 0.4.24 +Release: 1 Requires: perl >= %{perl_version} Requires: perl-gettext Requires: e2fsprogs @@ -66,6 +66,14 @@ /usr/lib/bootloader %changelog +* Wed Sep 12 2007 - od@suse.de +- Needed for #309837 and #304515 and others: + - Added (pseudo-)timestamps to standalone logging + - Removed code from update-bootloader to remove old standalone + log file: with the timestamps now the log entries from + different runs of update-bootloader can be discerned +- Minor correction of error message: use ASCII "'" instead of + similar Unicode character * Thu Aug 23 2007 - aosthof@suse.de - Added check for /etc/sysconfig/bootloader in bootloader_entry preventing installation errors in case of shared boot partitions ++++++ perl-Bootloader-0.4.23.tar.bz2 -> perl-Bootloader-0.4.24.tar.bz2 ++++++ diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/perl-Bootloader-0.4.23/lib/Bootloader/Tools.pm new/perl-Bootloader-0.4.24/lib/Bootloader/Tools.pm --- old/perl-Bootloader-0.4.23/lib/Bootloader/Tools.pm 2007-08-16 11:18:06.000000000 +0200 +++ new/perl-Bootloader-0.4.24/lib/Bootloader/Tools.pm 2007-09-11 17:38:54.000000000 +0200 @@ -109,10 +109,16 @@ if (not open LOGFILE, ">>$perl_logfile") { $using_logfile = 0; - open LOGFILE, ">&STDERR" or die "Can’t dup STDERR: $!"; + open LOGFILE, ">&STDERR" or die "Can't dup STDERR: $!"; print LOGFILE ("WARNING: Can't open $perl_logfile, using STDERR instead.\n"); } + # the time should have been recorded when the action was taken... but this + # is still useful as a hint + my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime; + my $timestamp = sprintf("%u-%02u-%02u %02u:%02u:%02u", + $year + 1900, $mon + 1, $mday, $hour, $min, $sec); + foreach my $rec (@{$lib_ref->GetLogRecords ()}) { my $message = $rec->{"message"}; @@ -122,7 +128,7 @@ # Y2DEBUG has to be set ("export Y2DEBUG=1"). if ($level eq "debug" and defined $ENV{'Y2DEBUG'}) { - print LOGFILE ("DEBUG: $message\n"); + print LOGFILE ("$timestamp DEBUG: $message\n"); } elsif ($level eq "debug" and not defined $ENV{'Y2DEBUG'}) { @@ -130,20 +136,20 @@ } elsif ($level eq "milestone") { - print LOGFILE ("MILESTONE: $message\n"); + print LOGFILE ("$timestamp MILESTONE: $message\n"); } elsif ($level eq "warning") { - print LOGFILE ("WARNING: $message\n"); + print LOGFILE ("$timestamp WARNING: $message\n"); # If writing to perl logfile, also print warnings to STDERR if ($using_logfile) { - print STDERR ("WARNING: $message\n"); + print STDERR ("$timestamp WARNING: $message\n"); } } elsif ($level eq "error") { - print LOGFILE ("ERROR: $message\n"); + print LOGFILE ("$timestamp ERROR: $message\n"); # If writing to perl logfile, also print errors to STDERR if ($using_logfile) { @@ -152,8 +158,8 @@ } else { - print LOGFILE ("ERROR: Uncomplete log record\n"); - print LOGFILE ("ERROR: $message\n"); + print LOGFILE ("$timestamp ERROR: Uncomplete log record\n"); + print LOGFILE ("$timestamp ERROR: $message\n"); # If writing to perl logfile, also print errors to STDERR if ($using_logfile) { ++++++ update-bootloader ++++++ --- perl-Bootloader/update-bootloader 2007-08-06 15:53:33.000000000 +0200 +++ /mounts/work_src_done/STABLE/perl-Bootloader/update-bootloader 2007-09-11 23:56:51.000000000 +0200 @@ -346,13 +346,6 @@ push @params, xen => $opt_xen_kernel if $type eq "xen"; push @params, initrd => $opt_initrd if $opt_initrd; - # If logfile already exists, remove it to prevent duplicate info - my $perl_logfile = "/var/log/YaST2/perl-BL-standalone-log"; - - if (-e $perl_logfile) { - `rm $perl_logfile`; - } - # Add "xen" section if ($opt_xen) { # Add original_name to params to be able to create comment line ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... --------------------------------------------------------------------- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org
participants (1)
-
root@Hilbert.suse.de