Cope with modern Perl's default @INC

[ypp-sc-tools.web-live.git] / yarrg / db-idempotent-populate

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;