chiark
/
gitweb
/
~ijackson
/
ypp-sc-tools.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
0595ca4
)
Cope with modern Perl's default @INC
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Tue, 5 Jul 2022 10:06:13 +0000
(11:06 +0100)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Tue, 5 Jul 2022 10:07:19 +0000
(11:07 +0100)
yarrg/commod-results-processor
patch
|
blob
|
history
yarrg/commod-update-receiver
patch
|
blob
|
history
yarrg/database-info-fetch
patch
|
blob
|
history
yarrg/db-idempotent-populate
patch
|
blob
|
history
yarrg/decode-pctb-marketdata
patch
|
blob
|
history
yarrg/dictionary-update-receiver
patch
|
blob
|
history
yarrg/ocean-topology-graph
patch
|
blob
|
history
yarrg/update-master-info
patch
|
blob
|
history
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.
# 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;
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.
# 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;
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.
# 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;
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.
# 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 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.
# 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));
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 '' . .
# 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;
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.
# are used without permission. This program is not endorsed or
# sponsored by Three Rings.
+BEGIN { unshift @INC, qw(.) }
+
use strict (qw(vars));
use CommodsDatabase;
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.
# 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;
use strict (qw(vars));
use DBI;
use Commods;