[LON-CAPA-cvs] cvs: loncom /homework response.pm

[raeburn]

raeburn		Tue Dec 18 18:26:41 2012 EDT

  Modified files:              
    /loncom/homework	response.pm 
  Log:
  - For perl 5.16 use of deprecated defined(@array) generates warnings.
    - eliminate use.
  
  
Index: loncom/homework/response.pm
diff -u loncom/homework/response.pm:1.231 loncom/homework/response.pm:1.232
--- loncom/homework/response.pm:1.231	Fri Oct 12 12:45:46 2012
+++ loncom/homework/response.pm	Tue Dec 18 18:26:41 2012
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # various response type definitons response definition
 #
-# $Id: response.pm,v 1.231 2012/10/12 12:45:46 raeburn Exp $
+# $Id: response.pm,v 1.232 2012/12/18 18:26:41 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1135,7 +1135,6 @@
 sub whichorder {
     my ($max,$randomize,$showall,$hash,$rndseed)=@_;
     #&Apache::lonxml::debug("man $max randomize $randomize");
-    if (!defined(@{ $$hash{'names'} })) { return; }
     my @names;
     if (ref($hash->{'names'}) eq 'ARRAY') {
         @names = @{$hash->{'names'}};