[vcv] Changes to multicvs.conf can leave files lying around

[mark]

[commit: http://hg.dwscoalition.org/vcv/rev/9b986132b07b]

http://bugs.dwscoalition.org/show_bug.cgi?id=399

Allow vcv to run from /home/timbuktu.

Patch by sophie.

Files modified:

• bin/vcv

--------------------------------------------------------------------------------
diff -r 7bc89d5e7090 -r 9b986132b07b bin/vcv
--- a/bin/vcv	Sun Mar 01 22:18:10 2009 +0000
+++ b/bin/vcv	Tue Mar 17 07:11:05 2009 +0000
@@ -456,9 +456,11 @@ while ( @dirs ) {
 
     next if $path eq 'cvs' || $path eq 'etc' || $path eq 'logs';
     next if $checked{$path}++ > 0;
-    next unless -d $path;
 
-    opendir (MD, $path) or die "Can't open $path.";
+    my $fullpath = "$DIR_LIVE/$path";
+    next unless -d $fullpath;
+
+    opendir (MD, $fullpath) or die "Can't open $fullpath.";
     while (my $file = readdir(MD)) {
         next if $file =~ /~$/;     # ignore emacs files
         next if $file =~ /^\.\#/;  # ignore CVS archived versions
@@ -470,10 +472,10 @@ while ( @dirs ) {
 
         next if $cvspath{"$path/$file"};
 
-        if (-d "$path/$file") {
+        if (-d "$fullpath/$file") {
             next if $file eq "blib";
             unshift @dirs, "$path/$file";
-        } elsif (-f "$path/$file") {
+        } elsif (-f "$fullpath/$file") {
 
             next if @ARGV && ! grep { "$path/$file" eq $_ } @ARGV;
 
@@ -485,7 +487,7 @@ while ( @dirs ) {
 
             if ( $diff ) {
                 my $opt = $opt_ignore_space ? '-b' : '';
-                my $the_diff = `diff -u $opt /dev/null $path/$file`;
+                my $the_diff = `diff -u $opt /dev/null $fullpath/$file`;
                 print $the_diff;
             }
         }
--------------------------------------------------------------------------------