Cope with modern Perl's default @INC

diff --git a/yarrg/commod-results-processor b/yarrg/commod-results-processor
index d427f74b41d10a51bcc2ed8fee3ae525a78e2fc2..fe05fb8722c207acb14c44f63d0d15b31a20bf17 100755 (executable)
--- 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 2059ad792416710584c279eb1d2de63032220339..42cd2532d23d8e321418babc161289662c596884 100755 (executable)
--- 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 041e008f4220e0a775c8ce4aeab18f5c7d4535ff..655d2ecdb05871502eed20e102476b0e4e80b274 100755 (executable)
--- 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 eb1a30b43a581047e330b4f226670083366e3fb0..2b63f2b9b110f0b334c2fafade4eeba24c6380e3 100755 (executable)
--- 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 df8203c47905a85df290933f4505e6aa3e0ff9a6..d3f4a4e287df0591352159ef15ba363760c849e2 100755 (executable)
--- 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 3baef669ddf6b4eefcc7a7942cb709118a9fc9dc..4c90f8489669e858c9ae74e10d3b2a38688d1ef7 100755 (executable)
--- 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 2336b43c453a717363049a18e4132cecd14b5293..e234189c53986745c27f96375d781eb8cbea282a 100755 (executable)
--- 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 adad34c81f42fbd29dbc2d0f9b24a7a392bda272..797eb9da52706a1cc44bbb5a3915a955387f20df 100755 (executable)
--- 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;