Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12764/perlmod/Fink
Modified Files:
ChangeLog Validation.pm
Log Message:
Validation.pm: Check for overwritten system symlinks (e.g. /var)
Index: Validation.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Validation.pm,v
retrieving revision 1.154
retrieving revision 1.155
diff -u -d -r1.154 -r1.155
--- Validation.pm 22 Nov 2004 04:53:26 -0000 1.154
+++ Validation.pm 22 Nov 2004 16:13:08 -0000 1.155
@@ -900,7 +900,13 @@
#print "$filename\n";
next if "$basepath/" =~ /^\Q$filename\E/; # skip
parent components of basepath hierarchy
if (not $filename =~ /^$basepath/) {
- if (not (($dpkg_filename =~ /xfree86[_\-]/) ||
($dpkg_filename =~ /xorg[_\-]/))) {
+ if (($filename =~ /^\/etc/) || ($filename =~
/^\/tmp/) || ($filename =~ /^\/var/)) {
+ print "Error: File \"$filename\" is
overwriting essential system symlink pointing to /private/...\n";
+ $looks_good = 0;
+ } elsif ($filename =~ /^\/mach/) {
+ print "Error: File \"$filename\" is
overwriting essential system symlink pointing to /mach.sym\n";
+ $looks_good = 0;
+ } elsif (not (($dpkg_filename =~
/xfree86[_\-]/) || ($dpkg_filename =~ /xorg[_\-]/))) {
print "Warning: File \"$filename\"
installed outside of $basepath\n";
$looks_good = 0;
} else {
Index: ChangeLog
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/ChangeLog,v
retrieving revision 1.758
retrieving revision 1.759
diff -u -d -r1.758 -r1.759
--- ChangeLog 22 Nov 2004 04:53:26 -0000 1.758
+++ ChangeLog 22 Nov 2004 16:13:08 -0000 1.759
@@ -1,3 +1,7 @@
+2004-11-22 Christian Schaffner <[EMAIL PROTECTED]>
+
+ * Validation.pm: Check for overwritten system symlinks (e.g. /var).
+
2004-11-21 Daniel Macks <[EMAIL PROTECTED]>
* Validation.pm: Check for .la files that point to their build dir.
-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now.
http://productguide.itmanagersjournal.com/
_______________________________________________
Fink-commits mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/fink-commits
