[LON-CAPA-cvs] cvs: loncom /xml run.pm

[albertel]

albertel		Mon Mar 24 22:00:31 2003 EDT

  Modified files:              
    /loncom/xml	run.pm 
  Log:
  - cleaner way to kill the eval
  
  
Index: loncom/xml/run.pm
diff -u loncom/xml/run.pm:1.32 loncom/xml/run.pm:1.33
--- loncom/xml/run.pm:1.32	Mon Mar 24 17:43:31 2003
+++ loncom/xml/run.pm	Mon Mar 24 22:00:31 2003
@@ -1,6 +1,6 @@
 package Apache::run;
 #
-# $Id: run.pm,v 1.32 2003/03/24 22:43:31 albertel Exp $
+# $Id: run.pm,v 1.33 2003/03/25 03:00:31 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -45,7 +45,7 @@
     $Apache::run::timeout=0;
     $main::SIG{'ALRM'} = sub {
 	$Apache::run::timeout=1;
-	Apache->request->print("timeout<br /> \n");
+	die("timeout");
     };
     eval {
 	alarm(Apache->request->server->timeout);
@@ -76,7 +76,7 @@
     $Apache::run::timeout=0;
     $main::SIG{'ALRM'} = sub {
 	$Apache::run::timeout=1;
-	Apache->request->print("timeout<br /> \n");
+	die("timeout");
     };
     eval {
 	alarm(Apache->request->server->timeout);