--- loncom/lonnet/perl/lonnet.pm 2020/03/30 11:04:08 1.1420 +++ loncom/lonnet/perl/lonnet.pm 2020/05/13 01:58:16 1.1421 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1420 2020/03/30 11:04:08 raeburn Exp $ +# $Id: lonnet.pm,v 1.1421 2020/05/13 01:58:16 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3528,12 +3528,15 @@ sub remove_stale_resfile { $stale = 1; } if ($stale) { - unlink($fname); - if ($uri!~/\.meta$/) { - unlink($fname.'.meta'); + if (unlink($fname)) { + if ($uri!~/\.meta$/) { + if (-e $fname.'.meta') { + unlink($fname.'.meta'); + } + } + &reply("unsub:$fname",$homeserver); + $removed = 1; } - &reply("unsub:$fname",$homeserver); - $removed = 1; } } }