fix warning

Can't call method "PRINT" on an undefined value during global destruction
sni · Nov 12, 2024 · 26f20f1 · 26f20f1
1 parent f685790
commit 26f20f1
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/lib/Thruk/Utils/External.pm b/lib/Thruk/Utils/External.pm
@@ -1360,14 +1360,17 @@ sub PRINTF {
 sub PRINT {
     my($self, @data) = @_;
 
+    return unless $self;
+    my $fh = $self->{'fh'};
+    return unless $fh;
+
     my $time           = Thruk::Utils::Log::time_prefix(); chop($time);
     $time              = $time.$self->{'prefix'} if $self->{'prefix'};
     $time              = $time." ";
     my $last_newline   = $self->{'newline'};
     my $line           = join("", @data);
     $self->{'newline'} = ($line =~ m/\n$/mx) ? 1 : 0;
 
-    my $fh = $self->{'fh'};
     if(!$last_newline && !$self->{'newline'}) {
         # continue printing, previous line did not end with a newline
         CORE::print($fh $line);