Cope with modern Perl's default @INC

[ypp-sc-tools.web-live.git] / yarrg / commod-email-processor

diff --git a/yarrg/commod-email-processor b/yarrg/commod-email-processor
index e65b2b6a91fcfe2237f6d8c123e0891a0ec5cebd..ff0880e9c876d6f14118d38c00149130de511f18 100755 (executable)
--- a/yarrg/commod-email-processor
+++ b/yarrg/commod-email-processor
@@ -34,6 +34,8 @@ BEGIN {
     my $selfdir= $0;
     $selfdir =~ s,/+[^/]*$,,;
     chdir("$selfdir") or die "$selfdir $!";
+
+    unshift @INC, qw(.);
 }
 
 use Commods;