--- loncom/lonnet/perl/lonnet.pm	2010/05/04 15:21:29	1.1062
+++ loncom/lonnet/perl/lonnet.pm	2010/05/20 18:11:18	1.1063
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1062 2010/05/04 15:21:29 droeschl Exp $
+# $Id: lonnet.pm,v 1.1063 2010/05/20 18:11:18 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3993,7 +3993,7 @@ sub role_status {
                             } elsif ($$role eq 'gr') {
                                 my %rolehash = &get('roles',[$$where.'_'.$$role],$env{'user.domain'},
                                                     $env{'user.name'});
-                                my $trole = split('_',$rolehash{$$where.'_'.$$role},1);
+                                my ($trole) = split('_',$rolehash{$$where.'_'.$$role},1);
                                 (undef,my $group_privs) = split(/\//,$trole);
                                 $group_privs = &unescape($group_privs);
                                 &group_roleprivs(\%allgroups,$$where,$group_privs,$$tend,$$tstart);