chiark / gitweb /
Installation fixes
[ypp-sc-tools.web-live.git] / yarrg / commod-email-processor
index d2f0e81..bf42c0d 100755 (executable)
@@ -49,6 +49,12 @@ use strict (qw(vars));
 use POSIX;
 use MIME::Parser;
 
+BEGIN {
+    my $selfdir= $0;
+    $selfdir =~ s,/+[^/]*$,,;
+    chdir("$selfdir") or die "$selfdir $!";
+}
+
 use Commods;
 use CommodsDatabase;