--- loncom/configuration/Checksumming.pm 2013/02/02 15:20:02 1.2 +++ loncom/configuration/Checksumming.pm 2013/02/06 13:47:47 1.4 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Checksum installed LON-CAPA modules and some configuration files # -# $Id: Checksumming.pm,v 1.2 2013/02/02 15:20:02 raeburn Exp $ +# $Id: Checksumming.pm,v 1.4 2013/02/06 13:47:47 raeburn Exp $ # # The LearningOnline Network with CAPA # @@ -125,7 +125,7 @@ sub get_checksums { sub compare_checksums { my ($target,$lonhost,$version,$serversums,$serverversions) = @_; my ($message,$numchg,$linefeed); - if ($target = 'web') { + if ($target eq 'web') { $linefeed = '
'; } else { $linefeed = "\n"; @@ -148,8 +148,10 @@ sub compare_checksums { $numchg ++; } } else { - $missing{$key} = 1; - $numchg ++; + unless ((-e $key) && (-B $key)) { + $missing{$key} = 1; + $numchg ++; + } } } foreach my $key (keys(%{$serversums})) {