--- loncom/lonnet/perl/lonnet.pm 2017/08/27 02:36:58 1.1352 +++ loncom/lonnet/perl/lonnet.pm 2017/08/27 13:48:52 1.1353 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1352 2017/08/27 02:36:58 raeburn Exp $ +# $Id: lonnet.pm,v 1.1353 2017/08/27 13:48:52 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3177,7 +3177,7 @@ sub remove_stale_resfile { if ($url=~m{^/res/($match_domain)/($match_username)/}) { my $audom = $1; my $auname = $2; - unless (($url =~ /\.\d+\.\w+$/) || ($url !~ m{^/res/lib/templates/})) { + unless (($url =~ /\.\d+\.\w+$/) || ($url =~ m{^/res/lib/templates/})) { my $homeserver = &homeserver($auname,$audom); unless (($homeserver eq 'no_host') || (grep { $_ eq $homeserver } ¤t_machine_ids())) {