--- loncom/lonnet/perl/lonnet.pm	2017/08/08 15:33:13	1.1348
+++ loncom/lonnet/perl/lonnet.pm	2017/08/11 00:25:30	1.1349
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1348 2017/08/08 15:33:13 raeburn Exp $
+# $Id: lonnet.pm,v 1.1349 2017/08/11 00:25:30 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1600,17 +1600,17 @@ sub internet_dom_servers {
 
 sub trusted_domains {
     my ($cmdtype,$calldom) = @_;
-    my (%trusted,%untrusted);
+    my ($trusted,$untrusted);
     if (&domain($calldom) eq '') {
-        return (\%trusted,\%untrusted);
+        return ($trusted,$untrusted);
     }
     unless ($cmdtype =~ /^(content|shared|enroll|coaurem|domroles|catalog|reqcrs|msg)$/) {
-        return (\%trusted,\%untrusted);
+        return ($trusted,$untrusted);
     }
     my $callprimary = &domain($calldom,'primary');
     my $intcalldom = &Apache::lonnet::internet_dom($callprimary);
     if ($intcalldom eq '') {
-        return (\%trusted,\%untrusted);
+        return ($trusted,$untrusted);
     }
 
     my ($trustconfig,$cached)=&Apache::lonnet::is_cached_new('trust',$calldom);
@@ -1660,17 +1660,17 @@ sub trusted_domains {
             }
             foreach my $exc (@allexc) {
                 if (ref($doms_by_intdom{$exc}) eq 'ARRAY') {
-                    map { $untrusted{$_}; } @{$doms_by_intdom{$exc}};
+                    $untrusted = $doms_by_intdom{$exc};
                 }
             }
             foreach my $inc (@allinc) {
                 if (ref($doms_by_intdom{$inc}) eq 'ARRAY') {
-                    map { $trusted{$_}; } @{$doms_by_intdom{$inc}};
+                    $trusted = $doms_by_intdom{$inc};
                 }
             }
         }
     }
-    return(\%trusted,\%untrusted);
+    return ($trusted,$untrusted);
 }
 
 sub will_trust {