Cope with modern Perl's default @INC

[ypp-sc-tools.web-live.git] / yarrg / decode-pctb-marketdata

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));