[LON-CAPA-cvs] cvs: loncom /xml run.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Sat, 26 Feb 2005 06:10:30 -0000
albertel Sat Feb 26 01:10:30 2005 EDT
Modified files:
/loncom/xml run.pm
Log:
- hide the perl inter variables like $'
Index: loncom/xml/run.pm
diff -u loncom/xml/run.pm:1.49 loncom/xml/run.pm:1.50
--- loncom/xml/run.pm:1.49 Tue Aug 10 15:16:40 2004
+++ loncom/xml/run.pm Sat Feb 26 01:10:30 2005
@@ -1,6 +1,6 @@
package Apache::run;
#
-# $Id: run.pm,v 1.49 2004/08/10 19:16:40 albertel Exp $
+# $Id: run.pm,v 1.50 2005/02/26 06:10:30 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -160,7 +160,9 @@
if (($symname!~/^\_/) && ($symname!~/\:$/)) {
my $line;
if ($safeeval->reval('defined($'.$symname.')')) {
- $line.='$'.$symname.'='.$safeeval->reval('$'.$symname)."\n";
+ if ($symname =~ /^\w/) {
+ $line.='$'.$symname.'='.$safeeval->reval('$'.$symname)."\n";
+ }
}
if ($safeeval->reval('defined(@'.$symname.')')) {
$line.='@'.$symname.'=('.