--- trunk/mbox2index.pl	2004/05/10 22:04:01	42
+++ trunk/mbox2index.pl	2004/05/11 15:36:51	43
@@ -1,6 +1,9 @@
 #!/usr/bin/perl -w
 
-use lib '.';
+BEGIN {
+        my $basedir = readlink($0) || $0; $basedir =~ s#/[^/]+$##;
+	unshift(@INC, $basedir);
+}
 
 use MWS::SWISH;
 #use MWS::Plucene;
@@ -9,7 +12,6 @@
 use POSIX qw(strftime);
 use Getopt::Long;
 
-
 # are we called from this script?
 my $recursive = 0;
 
@@ -31,7 +33,7 @@
 
 $mws->create_index if (! $recursive);
 
-print STDERR "starting indexing...";
+print STDERR "starting indexing...\n";
 
 my $debug = 1;