From: Michael R. <mr...@us...> - 2002-03-19 09:07:37
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv9904 Modified Files: init Log Message: Fehlerkontrolle im Init-Prozess Index: init =================================================================== RCS file: /cvsroot/kick/kick/init,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** init 4 Oct 2001 23:16:42 -0000 1.4 --- init 19 Mar 2002 09:07:33 -0000 1.5 *************** *** 27,32 **** } } ! &Init; ! print "OK.\n"; __END__ --- 27,36 ---- } } ! if (&Init) { ! print "OK.\n"; ! } ! else { ! die "Bei der Initialisierung sind Fehler aufgetreten"; ! } __END__ *************** *** 69,72 **** --- 73,80 ---- $Log$ + Revision 1.5 2002/03/19 09:07:33 mrau + + Fehlerkontrolle im Init-Prozess + Revision 1.4 2001/10/04 23:16:42 mrau Bugfix :endofperl behoben |