Cope with modern Perl's default @INC

[ypp-sc-tools.main.git] / yarrg / commod-update-receiver

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;