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

[raeburn]

raeburn		Tue Dec 18 18:27:43 2012 EDT

  Modified files:              
    /loncom/xml	run.pm 
  Log:
  - For perl 5.16 use of deprecated defined(@array) and defined(%hash) 
    generates warnings.
    - eliminate use.
  
  
Index: loncom/xml/run.pm
diff -u loncom/xml/run.pm:1.60 loncom/xml/run.pm:1.61
--- loncom/xml/run.pm:1.60	Mon Nov 24 18:55:01 2008
+++ loncom/xml/run.pm	Tue Dec 18 18:27:43 2012
@@ -1,6 +1,6 @@
 package Apache::run;
 #
-# $Id: run.pm,v 1.60 2008/11/24 18:55:01 jms Exp $
+# $Id: run.pm,v 1.61 2012/12/18 18:27:43 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -168,11 +168,11 @@
 		    $line.='$'.$symname.'='.$safeeval->reval('$'.$symname)."\n";
 		}
 	    }	
-	    if ($safeeval->reval('defined(@'.$symname.')')) {
+	    if ($safeeval->reval('@'.$symname)) {
 		$line.='@'.$symname.'=('.
 		    $safeeval->reval('join(",",@'.$symname.')').")"."\n";
 	    }
-	    if ($safeeval->reval('defined(%'.$symname.')')) {
+	    if ($safeeval->reval('%'.$symname)) {
 		$line.='%'.$symname.'=(';
 		$line.=$safeeval->reval('join(",",map { $_."=>".$'.
 					$symname.'{$_} } sort keys %'.