Cope with modern Perl's default @INC

[ypp-sc-tools.db-test.git] / yarrg / ocean-topology-graph

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;