trunk/bin/dev.sh

#!/bin/sh -x

# 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

server=./bin/server-mojo.pl

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

        FREY_NO_LOG=1 perl -c $server || exit
        FREY_RESTART=1 $server || exit
        FREY_SWITCH_SCREEN=0

done

1	#!/bin/sh -x
2
3	# This is my homage to Erlang - self restarting perl :-)
4	#
5	# it enabled to use die and confess when needed without
6	# having to worry about development flow
7
8	server=./bin/server-mojo.pl
9
10	pid=`cat var/dev.pid`
11	echo "## $pid"
12	if [ ! -z "$pid" ] ; then
13	echo "# kill $pid"
14	kill $pid
15	killall server-mojo.pl
16	fi
17
18	echo $$ > var/dev.pid
19
20	export FREY_SWITCH_SCREEN=1
21
22	while true ; do
23
24	FREY_NO_LOG=1 perl -c $server \|\| exit
25	FREY_RESTART=1 $server \|\| exit
26	FREY_SWITCH_SCREEN=0
27
28	done
29