# Fix Perl warnings while scanning dangling kernel symlinks.

---
 perl/lib/NeedRestart/Kernel/Linux.pm    | 5 +++++
 perl/lib/NeedRestart/Kernel/kFreeBSD.pm | 5 +++++
 2 files changed, 10 insertions(+)

diff --git a/perl/lib/NeedRestart/Kernel/Linux.pm b/perl/lib/NeedRestart/Kernel/Linux.pm
index 5100335..b2a1452 100644
--- 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
index 6c2fbd8..03dc0dc 100644
--- 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;
-- 
2.1.4