--- loncom/lonnet/perl/lonnet.pm	2022/01/03 14:40:28	1.1172.2.146.2.1
+++ loncom/lonnet/perl/lonnet.pm	2022/01/05 01:50:06	1.1172.2.146.2.2
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1172.2.146.2.1 2022/01/03 14:40:28 raeburn Exp $
+# $Id: lonnet.pm,v 1.1172.2.146.2.2 2022/01/05 01:50:06 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -12150,7 +12150,7 @@ sub get_map_hierarchy {
     return @recurseup;
 }
 
-)
+}
 
 sub sort_course_groups { # Sort groups based on defined rankings. Default is sort().
     my ($courseid,@groups) = @_;