--- loncom/lonnet/perl/lonnet.pm 2020/09/28 00:10:29 1.1424 +++ loncom/lonnet/perl/lonnet.pm 2020/09/28 13:08:57 1.1425 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1424 2020/09/28 00:10:29 raeburn Exp $ +# $Id: lonnet.pm,v 1.1425 2020/09/28 13:08:57 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -13408,7 +13408,9 @@ sub symbread { my @blockers = &has_comm_blocking('bre',$syval,$bighash{'src_'.$ids}); if (@blockers) { $syval = ''; - return; + untie(%bighash); + return '' if ($nocache); + return $env{$cache_str}=''; } } }