Francois Gouget : winetest: Automatically update @INC for winetest.conf.

[Alexandre Julliard]

Module: tools
Branch: master
Commit: b701141d429473ed49c80ffdbc06a1093a65ed41
URL:    http://source.winehq.org/git/tools.git/?a=commit;h=b701141d429473ed49c80ffdb...

Author: Francois Gouget <fgouget(a)codeweavers.com>
Date:   Wed Feb  8 08:09:39 2017 +0100

winetest: Automatically update @INC for winetest.conf.

This lets the build-index, dissect and gather scripts automatically find
the configuration file.

Signed-off-by: Francois Gouget <fgouget(a)codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard(a)winehq.org>

---

 winetest/build-index | 10 ++++++++++
 winetest/dissect     | 10 ++++++++++
 winetest/gather      | 10 ++++++++++
 3 files changed, 30 insertions(+)

diff --git a/winetest/build-index b/winetest/build-index
index 5f00f5d..349144f 100755
--- a/winetest/build-index
+++ b/winetest/build-index
@@ -25,6 +25,16 @@ use open ':utf8';
 use CGI qw(:standard);
 use POSIX qw(strftime);
 
+sub BEGIN
+{
+    if ($0 !~ m=^/=)
+    {
+        # Turn $0 into an absolute path so it can safely be used in @INC
+        require Cwd;
+        $0 = Cwd::cwd() . "/$0";
+    }
+    unshift @INC, $1 if ($0 =~ m=^(/.*)/[^/]+$=);
+}
 use vars qw/$gitdir $gitweb $queuedir/;
 require "winetest.conf";
 
diff --git a/winetest/dissect b/winetest/dissect
index f5b6744..d9404fe 100755
--- a/winetest/dissect
+++ b/winetest/dissect
@@ -38,6 +38,16 @@ use open ':utf8';
 use CGI qw(:standard);
 charset("utf-8");
 
+sub BEGIN
+{
+    if ($0 !~ m=^/=)
+    {
+        # Turn $0 into an absolute path so it can safely be used in @INC
+        require Cwd;
+        $0 = Cwd::cwd() . "/$0";
+    }
+    unshift @INC, $1 if ($0 =~ m=^(/.*)/[^/]+$=);
+}
 use vars qw/$gitdir $gitweb $queuedir $datadir $maxmult $maxuserskips $maxfailedtests $maxfilesize $acceptprediluvianwin/;
 require "winetest.conf";
 
diff --git a/winetest/gather b/winetest/gather
index 74c6734..10ed2da 100755
--- a/winetest/gather
+++ b/winetest/gather
@@ -35,6 +35,16 @@ use warnings;
 use CGI qw(:standard);
 charset("utf-8");
 
+sub BEGIN
+{
+    if ($0 !~ m=^/=)
+    {
+        # Turn $0 into an absolute path so it can safely be used in @INC
+        require Cwd;
+        $0 = Cwd::cwd() . "/$0";
+    }
+    unshift @INC, $1 if ($0 =~ m=^(/.*)/[^/]+$=);
+}
 use vars qw/$datadir $gitweb/;
 require "winetest.conf";