make sure not to run timers after quitting the main loop (#37635)

1 files changed, 4 insertions, 1 deletions

diff --git a/bin/net_monitor b/bin/net_monitor
index bf8f4f0..5c6464b 100755
--- a/bin/net_monitor
+++ b/bin/net_monitor
@@ -139,7 +139,7 @@ $window1->{window}->show_all;
 # make sure widgets got realized before any event callback is called (#36537):
 gtkflush();
 
-Glib::Timeout->add(1000, \&rescan);
+my $time_tag1 = Glib::Timeout->add(1000, \&rescan);
 my $time_tag2 = Glib::Timeout->add(1000, \&update);
 
 update();
@@ -173,6 +173,9 @@ my $during_connection;
 my $first;
 
 sub main_quit() {
+    foreach my $timeout ($time_tag1, $time_tag2) {
+        Glib::Source->remove($timeout) if $timeout;
+    }
     $config{use_same_scale} = bool2yesno($use_same_scale);
     setVarsInSh($cfg_file, \%config);
     ugtk2->exit(0);