[LON-CAPA-cvs] cvs: loncom /configuration Checksumming.pm

[raeburn]

raeburn		Wed Feb  6 13:47:47 2013 EDT

  Modified files:              
    /loncom/configuration	Checksumming.pm 
  Log:
  - setuid scripts not listed as missing by &compare_checksums() for distros
    where original text file replaced by compiled version from wrap_setuid.lpml
  
  
Index: loncom/configuration/Checksumming.pm
diff -u loncom/configuration/Checksumming.pm:1.3 loncom/configuration/Checksumming.pm:1.4
--- loncom/configuration/Checksumming.pm:1.3	Mon Feb  4 15:05:23 2013
+++ loncom/configuration/Checksumming.pm	Wed Feb  6 13:47:47 2013
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Checksum installed LON-CAPA modules and some configuration files
 #
-# $Id: Checksumming.pm,v 1.3 2013/02/04 15:05:23 raeburn Exp $
+# $Id: Checksumming.pm,v 1.4 2013/02/06 13:47:47 raeburn Exp $
 #
 # The LearningOnline Network with CAPA
 #
@@ -148,8 +148,10 @@
                             $numchg ++;
                         }
                     } else {
-                        $missing{$key} = 1;
-                        $numchg ++;
+                        unless ((-e $key) && (-B $key)) {
+                            $missing{$key} = 1;
+                            $numchg ++;
+                        }
                     }
                 }
                 foreach my $key (keys(%{$serversums})) {