""

mos.pl

@@ -9,26 +9,28 @@
 # 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 
+
+  use Milkbone;
+  use Milkbone::Hooks qw(load_options pre_mainloop post_mainloop 
                          protocol_signon load_plugins);
 
-$| = 1;
+  $| = 1;
 
-sub main
+  sub main
-{
+    {
       Milkbone->init();
 
       load_options;
@@ -42,9 +44,11 @@ sub main
       data("me") = "test";
 
       MOSLoop;
-
       post_mainloop;
-}
+    }
+  
+  # off it goes...
+  main();
+};
 
-# off it goes...
+print $@ if $@;
-main();