--- trunk/bin/dev.sh	2008/11/20 14:24:13	479
+++ trunk/bin/dev.sh	2008/12/01 22:01:16	658
@@ -1,14 +1,29 @@
-#!/bin/sh
+#!/bin/sh -x
 
-server=./bin/continuity-server.pl
+# This is my homage to Erlang - self restarting perl :-)
+#
+# it enabled to use die and confess when needed without
+# having to worry about development flow
 
-perl -c $server || exit
+server=./bin/server-mojo.pl
 
-dir=var/log
-test -d $dir || mkdir -v $dir || exit
+pid=`cat var/dev.pid`
+echo "## $pid"
+if [ ! -z "$pid" ] ; then
+	echo "# kill $pid"
+	kill $pid
+	killall server-mojo.pl
+fi
+
+echo $$ > var/dev.pid
+
+export FREY_SWITCH_SCREEN=1
 
 while true ; do
-test -f log && mv -v log $dir/dev.`ls $dir/dev* | wc -l`
-FREY_RESTART=1 $server 2>&1 | tee -a log
+
+	FREY_NO_LOG=1 perl -c $server || exit
+	FREY_RESTART=1 $server || exit
+	FREY_SWITCH_SCREEN=0
+
 done