[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom /xml run.pm
From: raeburn <raeburn () source ! lon-capa ! org>
Date: 2019-11-10 20:40:59
Message-ID: cvsraeburn1573418459 () cvsserver
[Download RAW message or body]
raeburn Sun Nov 10 20:40:59 2019 EDT
Modified files:
/loncom/xml run.pm
Log:
- Suppress "Use of uninitialized value" (Config.pm line 62) warnings in logs
from reval of perl special hash: %!, in call to &Apache::run::dump()
when creating ScriptVars display for answer target.
Index: loncom/xml/run.pm
diff -u loncom/xml/run.pm:1.64 loncom/xml/run.pm:1.65
--- loncom/xml/run.pm:1.64 Tue Jun 23 02:52:20 2015
+++ loncom/xml/run.pm Sun Nov 10 20:40:59 2019
@@ -1,6 +1,6 @@
package Apache::run;
#
-# $Id: run.pm,v 1.64 2015/06/23 02:52:20 raeburn Exp $
+# $Id: run.pm,v 1.65 2019/11/10 20:40:59 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -165,7 +165,7 @@
my $dump='';
foreach my $symname (sort(keys(%{$safeeval->varglob('main::')}))) {
if (($symname!~ /^(INC|SIG)/) && ($symname!~/\027/) && ($symname!~/\022/) &&
- ($symname!~/^\_/) && ($symname!~/\:$/)) {
+ ($symname!~/^\_/) && ($symname!~/\:$/) && ($symname ne '!')) {
my $line;
if ($safeeval->reval('defined($'.$symname.')')) {
if ($symname =~ /^\w/) {
_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic