Fix perl warning while scanning dangling kernel symlinks (github issue …

…#6 by Elan Ruusamäe [@glensc]).
liske · Apr 14, 2015 · 601ab27 · 601ab27
1 parent 6c3d992
commit 601ab27
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/perl/lib/NeedRestart/Kernel/Linux.pm b/perl/lib/NeedRestart/Kernel/Linux.pm
@@ -94,6 +94,11 @@ sub nr_kernel_check_real($$) {
 	$ui->progress_step;
 	my $stat = nr_stat($fn);
 
+	unless(defined($stat)) {
+	    print STDERR "$LOGPREF could not stat(2) on $fn\n" if($debug);
+	    next;
+	}
+
 	if($stat->{size} < 1000000) {
 	    print STDERR "$LOGPREF $fn seems to be too small\n" if($debug);
 	    next;

diff --git a/perl/lib/NeedRestart/Kernel/kFreeBSD.pm b/perl/lib/NeedRestart/Kernel/kFreeBSD.pm
@@ -52,6 +52,11 @@ sub nr_kernel_check_real($$) {
 	$ui->progress_step;
 	my $stat = nr_stat($fn);
 
+	unless(defined($stat)) {
+	    print STDERR "$LOGPREF could not stat(2) on $fn\n" if($debug);
+	    next;
+	}
+
 	if($stat->{size} < 1000000) {
 	    print STDERR "$LOGPREF $fn seems to be too small\n" if($debug);
 	    next;