[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

[raeburn]

raeburn		Thu Oct 15 19:17:40 2020 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - Sanity checking
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1428 loncom/lonnet/perl/lonnet.pm:1.1429
--- loncom/lonnet/perl/lonnet.pm:1.1428	Thu Oct 15 18:09:10 2020
+++ loncom/lonnet/perl/lonnet.pm	Thu Oct 15 19:17:40 2020
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1428 2020/10/15 18:09:10 raeburn Exp $
+# $Id: lonnet.pm,v 1.1429 2020/10/15 19:17:40 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -8767,16 +8767,18 @@
                                         my $first = $mapres->map_start();
                                         my $finish = $mapres->map_finish();
                                         my $it = $navmap->getIterator($first,$finish,undef,0,0);
-                                        my $res;
-                                        while ($res = $it->next(undef,1)) {
-                                            next unless (ref($res));
-                                            my $symb = $res->symb();
-                                            next if (($symb eq $mapsymb) || ($symb eq ''));
-                                            @interval=&EXT("resource.0.interval",$symb);
-                                            if ($interval[1] eq 'map') {
-                                                if ($res->answerable()) {
-                                                    push(@to_test,$res);
-                                                    last;
+                                        if (ref($it)) {
+                                            my $res;
+                                            while ($res = $it->next(undef,1)) {
+                                                next unless (ref($res));
+                                                my $symb = $res->symb();
+                                                next if (($symb eq $mapsymb) || ($symb eq ''));
+                                                @interval=&EXT("resource.0.interval",$symb);
+                                                if ($interval[1] eq 'map') {
+                                                    if ($res->answerable()) {
+                                                        push(@to_test,$res);
+                                                        last;
+                                                    }
                                                 }
                                             }
                                         }