Honour YARRG_DATA_DIR in CommodsWeb

diff --git a/yarrg/CommodsWeb.pm b/yarrg/CommodsWeb.pm
index 036c7e99ffe4dd48a55324578f58aaa00754e4d1..3ad8590fa9313cab26b1b7e225d745a146193e94 100644 (file)
--- 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";