quick hack to make inc require-able

[minc] / minc

diff --git a/minc b/minc
index 1642c46..1d7a4c2 100755 (executable)
--- a/minc
+++ b/minc
@@ -95,6 +95,7 @@ my $maxmsgs;
 my $norun;
 my $rebuild_dot_folders;
 
+if (!caller()) {
 GetOptions(
            'd' => \$dumpfilters,
            'h|help' => \$help,
@@ -104,6 +105,7 @@ GetOptions(
           ) or pod2usage();
 $help and pod2usage(-exitstatus=>0, -verbose=>1);
 @ARGV == 0 or pod2usage();
+}
 
 our $run = !$norun;
 
@@ -782,7 +784,7 @@ sub scan_spam {
 }
 
 \f
-MAIN: {
+if (!caller()) {
     my $st;
 
     if ($dumpfilters) {
@@ -811,6 +813,8 @@ MAIN: {
     scan_spam();
 }
 
+1;
+
 \f
 __END__