[LON-CAPA-cvs] cvs: loncom /interface lonnavmaps.pm

[raeburn]

raeburn		Fri Oct 12 13:48:50 2012 EDT

  Modified files:              
    /loncom/interface	lonnavmaps.pm 
  Log:
  - For perl 5.16 use of deprecated defined(@array) generates warnings.
    - eliminate use.
  
  
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.488 loncom/interface/lonnavmaps.pm:1.489
--- loncom/interface/lonnavmaps.pm:1.488	Thu Oct  4 15:28:51 2012
+++ loncom/interface/lonnavmaps.pm	Fri Oct 12 13:48:50 2012
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.488 2012/10/04 15:28:51 bisitz Exp $
+# $Id: lonnavmaps.pm,v 1.489 2012/10/12 13:48:50 raeburn Exp $
 
 #
 # Copyright Michigan State University Board of Trustees
@@ -4413,7 +4413,7 @@
     my $partsref = $self->parts();
     my @parts    = @$partsref;
 
-    if ((!defined(@parts)) || (scalar(@parts) == 0)) {
+    if (!@parts) {
 	return $self->printable(0);
     } else {
 	foreach my $part  (@parts) {