Attachment 6745 Details for Bug 16128 – add more debug to logs

[patch] add more debug to logs

marja-debug2.diff (text/plain), 1002 bytes, created by Thierry Vignaud on 2015-06-16 14:00:59 CEST

(hide)

Description:

Filename:

MIME Type:

Creator: Thierry Vignaud

Created: 2015-06-16 14:00:59 CEST

Size: 1002 bytes

patch

obsolete

>diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
>index 4dd96ba..0c111cc 100644
>--- a/perl-install/bootloader.pm
>+++ b/perl-install/bootloader.pm
>@@ -639,10 +639,12 @@ sub read_lilo_like {
> sub cleanup_entries {
>     my ($bootloader) = @_;
> 
>+    use Data::Dumper;
>     #- cleanup bad entries (in case file is corrupted)
>     @{$bootloader->{entries}} = 
> 	grep { 
> 	    my $pb = $_->{type} eq 'image' && !$_->{keep_verbatim} && ! -e "$::prefix$_->{kernel_or_dev}";
>+	    log::l(Dumper($_)) if $pb;
> 	    log::l("dropping bootloader entry $_->{label} since $_->{kernel_or_dev} doesn't exist") if $pb;
> 	    !$pb;
> 	} @{$bootloader->{entries}};
>@@ -1165,6 +1165,7 @@ sub suggest {
>     }
> 
>     my @kernels = get_kernels_and_labels() or die "no kernel installed";
>+    log::l("found kernels: ", join(', ', @kernels));
> 
>     my %old_kernels = map { vmlinuz2version($_->{kernel_or_dev}) => 1 } @{$bootloader->{entries}};
>     @kernels = grep { !$old_kernels{$_->{version}} } @kernels;

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 4dd96ba..0c111cc 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -639,10 +639,12 @@ sub read_lilo_like {
 sub cleanup_entries {
     my ($bootloader) = @_;
 
+    use Data::Dumper;
     #- cleanup bad entries (in case file is corrupted)
     @{$bootloader->{entries}} = 
 	grep { 
 	    my $pb = $_->{type} eq 'image' && !$_->{keep_verbatim} && ! -e "$::prefix$_->{kernel_or_dev}";
+	    log::l(Dumper($_)) if $pb;
 	    log::l("dropping bootloader entry $_->{label} since $_->{kernel_or_dev} doesn't exist") if $pb;
 	    !$pb;
 	} @{$bootloader->{entries}};
@@ -1165,6 +1165,7 @@ sub suggest {
     }
 
     my @kernels = get_kernels_and_labels() or die "no kernel installed";
+    log::l("found kernels: ", join(', ', @kernels));
 
     my %old_kernels = map { vmlinuz2version($_->{kernel_or_dev}) => 1 } @{$bootloader->{entries}};
     @kernels = grep { !$old_kernels{$_->{version}} } @kernels;

Actions: View | Diff

Attachments on bug 16128: 6745 | 6746 | 6747 | 6748 | 6755