stop error messages on DEFAULT signal-handler

PDLPorters · Apr 25, 2024 · b1fee65 · b1fee65
1 parent 767ca59
commit b1fee65
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/PDL/Graphics/PGPLOT/Window.pm b/lib/PDL/Graphics/PGPLOT/Window.pm
@@ -2343,8 +2343,8 @@ sub catch_signals (&) {
   my(@sigs) = ('INT');
   local($_, $@);
   if($sig_nest == 0) {
-    foreach $_(@sigs) {
-      next if ($SIG{$_}//0) == \&signal_catcher;
+    foreach (@sigs) {
+      next if ($SIG{$_}//'') ne 'DEFAULT' and ($SIG{$_}//0) == \&signal_catcher;
       $sig_handlers{$_}=$SIG{$_};
       $SIG{$_}=\&signal_catcher;
     }