""

mos.pl

@@ -9,42 +9,46 @@
 # License	:	it's on our TODO list...
 # -----------------------------------------------------------------------
 
-use 5.006;	# milkbone might work on 5.004 or lower; someone should find out...
+eval {
 
-use warnings;
+  use 5.006;                    # milkbone might work on 5.004 or lower; someone should find out...
-use strict;
 
-use lib 'lib';
+  use warnings;
-use lib '.';
+  use strict;
 
-use Tk;
+  use lib 'lib';
+  use lib '.';
 
-$SIG{CHLD} = 'IGNORE';		# this is so forked processes don't become zombies
+  use Tk;
 
-use Milkbone;
+  $SIG{CHLD} = 'IGNORE';        # this is so forked processes don't become zombies
-use Milkbone::Hooks qw(load_options pre_mainloop post_mainloop 
-		       protocol_signon load_plugins);
 
-$| = 1;
+  use Milkbone;
+  use Milkbone::Hooks qw(load_options pre_mainloop post_mainloop 
+                         protocol_signon load_plugins);
 
-sub main
+  $| = 1;
-{
-    Milkbone->init();
 
-    load_options;
+  sub main
+    {
+      Milkbone->init();
 
-    require "plugins/Tk-Splash.pl" unless option("NoSplash");
+      load_options;
 
-    load_plugins;
+      require "plugins/Tk-Splash.pl" unless option("NoSplash");
-    pre_mainloop;
 
-    protocol_signon -user => 'test', -pass => 'test';
+      load_plugins;
-    data("me") = "test";
+      pre_mainloop;
       
-    MOSLoop;
+      protocol_signon -user => 'test', -pass => 'test';
+      data("me") = "test";
 
-    post_mainloop;
+      MOSLoop;
-}
+      post_mainloop;
+    }
   
-# off it goes...
+  # off it goes...
-main();
+  main();
+};
+
+print $@ if $@;