--- loncom/auth/lonauth.pm	2010/07/24 17:42:46	1.107
+++ loncom/auth/lonauth.pm	2010/08/18 19:25:12	1.108
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonauth.pm,v 1.107 2010/07/24 17:42:46 raeburn Exp $
+# $Id: lonauth.pm,v 1.108 2010/08/18 19:25:12 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -423,7 +423,11 @@ sub check_can_host {
     my $canhost = 1;
     my $lonhost = $r->dir_config('lonHostID');
     my $udom = $form->{'udom'};
-    my @intdoms = &Apache::lonnet::get_internet_names($lonhost);
+    my @intdoms;
+    my $internet_names = &Apache::lonnet::get_internet_names($lonhost);
+    if (ref($internet_names) eq 'ARRAY') {
+        @intdoms = @{$internet_names};
+    }
     my $uprimary_id = &Apache::lonnet::domain($udom,'primary');
     my $uint_dom = &Apache::lonnet::internet_dom($uprimary_id);
     unless ($uint_dom ne '' && grep(/^\Q$uint_dom\E$/,@intdoms)) {