--- loncom/xml/run.pm 2006/01/11 08:52:58 1.55
+++ loncom/xml/run.pm 2006/02/20 23:52:20 1.57
@@ -1,6 +1,6 @@
package Apache::run;
#
-# $Id: run.pm,v 1.55 2006/01/11 08:52:58 albertel Exp $
+# $Id: run.pm,v 1.57 2006/02/20 23:52:20 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -50,7 +50,7 @@ while (!$_LONCAPA_INTERNAL_oldexpression
my $__LC__prefix;
my $__LC__result;
while (1) {
- if ($__LC__a =~ m-^&(theta|i|pi|rho)-) { last; }
+ if ($__LC__a =~ m-^&(theta|pi|rho)$-) { last; }
{
use strict;
no strict "vars";
@@ -140,8 +140,10 @@ sub run {
if ($innererror=~/line (\d+)/) {
my $linenumber=$1;
my @code=split("\n",$code);
- $code[$linenumber-1]=''.
- $code[$linenumber-1].'';
+ if ($linenumber < scalar(@code)) {
+ $code[$linenumber-1]=''.
+ $code[$linenumber-1].'';
+ }
$code=join("\n",@code);
}
&Apache::lonxml::error($errormsg.$code.'');