From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 5 Jul 2022 10:06:13 +0000 (+0100)
Subject: Cope with modern Perl's default @INC
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.main.git;a=commitdiff_plain;h=669414f2132269b7bf7d885092165db632c8ba06

Cope with modern Perl's default @INC
---

diff --git a/yarrg/commod-results-processor b/yarrg/commod-results-processor
index d427f74..fe05fb8 100755
--- a/yarrg/commod-results-processor
+++ b/yarrg/commod-results-processor
@@ -24,6 +24,7 @@
 # are used without permission.  This program is not endorsed or
 # sponsored by Three Rings.
 
+BEGIN { unshift @INC, qw(.) }
 
 use strict (qw(vars));
 use HTTP::Request;
diff --git a/yarrg/commod-update-receiver b/yarrg/commod-update-receiver
index 2059ad7..42cd253 100755
--- a/yarrg/commod-update-receiver
+++ b/yarrg/commod-update-receiver
@@ -25,6 +25,8 @@
 # are used without permission.  This program is not endorsed or
 # sponsored by Three Rings.
 
+BEGIN { unshift @INC, qw(.) }
+
 use strict (qw(vars));
 use POSIX;
 use MIME::Entity;
diff --git a/yarrg/database-info-fetch b/yarrg/database-info-fetch
index 041e008..655d2ec 100755
--- a/yarrg/database-info-fetch
+++ b/yarrg/database-info-fetch
@@ -24,6 +24,8 @@
 # are used without permission.  This program is not endorsed or
 # sponsored by Three Rings.
 
+BEGIN { unshift @INC, qw(.) }
+
 use strict (qw(vars));
 use JSON;
 #use Data::Dumper;
diff --git a/yarrg/db-idempotent-populate b/yarrg/db-idempotent-populate
index eb1a30b..2b63f2b 100755
--- a/yarrg/db-idempotent-populate
+++ b/yarrg/db-idempotent-populate
@@ -29,6 +29,8 @@
 # are used without permission.  This program is not endorsed or
 # sponsored by Three Rings.
 
+BEGIN { unshift @INC, qw(.) }
+
 use strict (qw(vars));
 
 use DBI;
diff --git a/yarrg/decode-pctb-marketdata b/yarrg/decode-pctb-marketdata
index df8203c..d3f4a4e 100755
--- a/yarrg/decode-pctb-marketdata
+++ b/yarrg/decode-pctb-marketdata
@@ -3,6 +3,8 @@
 # This specific file is hereby placed in the public domain, or nearest
 # equivalent in law, by me, Ian Jackson.  5th July 2009.
 
+BEGIN { unshift @INC, qw(.) }
+
 use IO::File;
 use strict (qw(vars));
 
diff --git a/yarrg/dictionary-update-receiver b/yarrg/dictionary-update-receiver
index 3baef66..4c90f84 100755
--- a/yarrg/dictionary-update-receiver
+++ b/yarrg/dictionary-update-receiver
@@ -30,6 +30,8 @@
 # YPPSC_YARRG_DICT_UPDATE=./ YPPSC_YARRG_DICT_SUBMIT=./ ./yarrg --ocean midnight --pirate aristarchus --find-island --same --raw-tsv >raw.tsv  
 # ./dictionary-manager --debug --approve-updates '' . .
 
+BEGIN { unshift @INC, qw(.) }
+
 use strict (qw(vars));
 use POSIX;
 
diff --git a/yarrg/ocean-topology-graph b/yarrg/ocean-topology-graph
index 2336b43..e234189 100755
--- a/yarrg/ocean-topology-graph
+++ b/yarrg/ocean-topology-graph
@@ -22,6 +22,8 @@
 # are used without permission.  This program is not endorsed or
 # sponsored by Three Rings.
 
+BEGIN { unshift @INC, qw(.) }
+
 use strict (qw(vars));
 
 use CommodsDatabase;
diff --git a/yarrg/update-master-info b/yarrg/update-master-info
index adad34c..797eb9d 100755
--- a/yarrg/update-master-info
+++ b/yarrg/update-master-info
@@ -52,6 +52,8 @@
 # are used without permission.  This program is not endorsed or
 # sponsored by Three Rings.
 
+BEGIN { unshift @INC, qw(.) }
+
 use strict (qw(vars));
 use DBI;
 use Commods;