Some standalone tools don't compile when run from console

1 files changed, 10 insertions, 1 deletions

diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor
index 3863e0197..9fdd05c91 100755
--- a/perl-install/standalone/net_monitor
+++ b/perl-install/standalone/net_monitor
@@ -27,7 +27,16 @@ use standalone;     #- warning, standalone must be loaded very first, for 'expla
 
 use c;
 use interactive;
-use ugtk2 qw(:helpers :wrappers :create);
+BEGIN {
+    eval {
+	require ugtk2;
+	ugtk2->import(qw(:create :helpers :wrappers));
+    };
+    if ($@) {
+	print "This program cannot be run in console mode.\n";
+	c::_exit(0);  #- skip ugtk2::END
+    }
+}
 use common;
 use network::netconnect;
 use network::tools;