From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 25 Aug 2009 17:56:19 +0000 (+0100)
Subject: Honour YARRG_DATA_DIR in CommodsWeb
X-Git-Tag: 3.4~102
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.web-test.git;a=commitdiff_plain;h=f59ea54fd2dea04b6dfc91d56d7056b61d5f3b17

Honour YARRG_DATA_DIR in CommodsWeb
---

diff --git a/yarrg/CommodsWeb.pm b/yarrg/CommodsWeb.pm
index 036c7e9..3ad8590 100644
--- a/yarrg/CommodsWeb.pm
+++ b/yarrg/CommodsWeb.pm
@@ -73,6 +73,8 @@ sub sourcebasedir () {
 }
 
 sub datadir () {
+    my $edir= $ENV{'YARRG_DATA_DIR'};
+    return $edir if defined $edir;
     my $dir= dotperllibdir();
     if (stat "$dir/DATA") {
 	return "$dir/DATA";