src/test/perllib/HgConf.pm 1.2

1.2 2009/03/30 22:13:38 angie
Use HGDB_CONF environment variable if defined.
Index: src/test/perllib/HgConf.pm
===================================================================
RCS file: /projects/compbio/cvsroot/kent/src/test/perllib/HgConf.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -b -B -U 4 -r1.1 -r1.2
--- src/test/perllib/HgConf.pm	5 Nov 2003 22:39:08 -0000	1.1
+++ src/test/perllib/HgConf.pm	30 Mar 2009 22:13:38 -0000	1.2
@@ -22,16 +22,19 @@
     my $class = shift;
     my $filename = shift;
     confess "Too many arguments" if (defined shift);
     if (! defined $filename) {
+      $filename = $ENV{HGDB_CONF};
+      if (! defined $filename) {
       $filename = $ENV{'HOME'} . "/.hg.conf";
       if (! -e $filename) {
 	$filename = "./hg.conf";
+	}
+      }
 	if (! -e $filename) {
 	  die "HgConf::new: Error: can't find .hg.conf or hg.conf, and no filename given.\n";
 	}
       }
-    }
     my $this = {};
     open(HGCONF, "<$filename")
       || die "Couldn't open $filename: $!\n";
     while (<HGCONF>) {