Allow vcv to run from any folder.

        Patch by sophie. 

diffs (30 lines):

diff -r fb385e8b48c5 -r 18d33f8b15d5 bin/vcv
--- a/bin/vcv   Thu Mar 19 16:16:48 2009 +0000
+++ b/bin/vcv   Thu Jul 02 02:59:28 2009 +0000
@@ -3,6 +3,7 @@
 
 use strict;
 use Getopt::Long;
+use Cwd;
 
 $| = 1;
 
@@ -219,6 +220,9 @@ my $read_conf = sub
     close C;
 };
 $read_conf->($conf, 1);
+
+my $origcwd = getcwd;
+chdir( $DIR_LIVE ) or die "Could not change directory to $DIR_LIVE";
 
 if ($conf =~ /^(.+)(multicvs\.conf)$/) {
     my $localconf = "$1multicvs-local.conf";
@@ -491,6 +495,8 @@ while ( @dirs ) {
         }
     }
 }
+
+chdir( $origcwd );
 
 sub read_cache {
     return 1 if %CACHE;
_______________________________________________
dw-changelog mailing list
[email protected]
http://lists.dwscoalition.org/mailman/listinfo/dw-changelog

Reply via email to