[svk-devel] [PATCH] giving $SVKROOT priority over .svk/

[Bernhard Weisshuhn]

Hello,

currently svk looks for a directory named '.svk' first and only then
checks for $ENV{SVKROOT}, which makes using $SVKROOT a lottery.

The attached trivial patch fixes that.

regards,
  bkw

-------------- next part --------------
--- bin/svk.orig	2006-12-28 14:16:53.000000000 +0100
+++ bin/svk	2007-02-22 21:02:26.358802933 +0100
@@ -118,7 +118,7 @@
     (defined &Win32::LoginName) ? Win32::LoginName() : ''
 ) || $ENV{USERNAME} || (getpwuid($<))[0];
 
-my $svkpath = find_dotsvk || $ENV{SVKROOT} || catfile($ENV{HOME}, ".svk");
+my $svkpath = $ENV{SVKROOT} || find_dotsvk || catfile($ENV{HOME}, ".svk");
 my $floating = undef;
 if (-e catfile($svkpath, 'floating')) {
     require Path::Class;