--- loncom/homework/lonmaxima.pm 2006/03/11 16:28:03 1.1 +++ loncom/homework/lonmaxima.pm 2006/03/15 20:44:54 1.2 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Interface routines to MAXIMA CAS # -# $Id: lonmaxima.pm,v 1.1 2006/03/11 16:28:03 www Exp $ +# $Id: lonmaxima.pm,v 1.2 2006/03/15 20:44:54 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -59,7 +59,7 @@ sub maximareply { sub blacklisted { my ($cmd)=@_; foreach my $forbidden ('save','load','plot','lisp','includ','compil','file','batch','stringout','translat','stout','stin','block','system') { - if ($cmd=~/$forbidden/) { return 1; } + if ($cmd=~/$forbidden/s) { return 1; } } return 0; }