[Midnightbsd-cvs] mports: chkfake.pl: a few cleanups and bug fixes.

[ctriv at midnightbsd.org]

Log Message:
-----------
a few cleanups and bug fixes.

Modified Files:
--------------
    mports/Tools/scripts:
        chkfake.pl (r1.7 -> r1.8)

-------------- next part --------------
Index: chkfake.pl
===================================================================
RCS file: /home/cvs/mports/Tools/scripts/chkfake.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -L Tools/scripts/chkfake.pl -L Tools/scripts/chkfake.pl -u -r1.7 -r1.8
--- Tools/scripts/chkfake.pl
+++ Tools/scripts/chkfake.pl
@@ -64,7 +64,7 @@
   next if -l "$destdir$cwd/$_";
   
   if (-e "$destdir$cwd/$_") {
-    if (!m/$skip/ && grep_file($destdir, "$destdir$cwd/$_")) {
+    if (($skip && m/$skip/) || grep_file($destdir,  "$destdir$cwd/$_")) {
       $ok = 0;
       print "    $_ contains the fake destdir.";
     }
@@ -97,6 +97,6 @@
   open(my $fd, '<', $file) || die "Couldn't open $file: $!\n";
   my $contents = <$fd>;
   close($fd) || die "Couldn't close $file: $!\n";
-  
-  return $contents =~ m:$destdir: ? 1 : 0;
+    
+  return index($contents, $destdir) >= 0 ? 1 : 0;
 }