From 9b472795d26cd93d1bb58488ef60a062f5237295 Mon Sep 17 00:00:00 2001
From: Janik Kleinhoff <janik@kleinhoff.de>
Date: Thu, 24 Sep 2015 01:32:11 +0000
Subject: Rework module paths

---
 meta.pl | 26 +++++++++++++++-----------
 1 file changed, 15 insertions(+), 11 deletions(-)

(limited to 'meta.pl')

diff --git a/meta.pl b/meta.pl
index 00045a6..2e651d6 100755
--- a/meta.pl
+++ b/meta.pl
@@ -1,12 +1,11 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 
-use lib '/home/icxcnika/AntiSpamMeta';
-
-#use Devel::Profiler package_filter => sub { return 0 if $_[0] =~ /^XML::Simple/; return 1; };
+use strict;
+use warnings;
 
+use FindBin;
+use lib "$FindBin::Bin/lib";;
 
-use warnings;
-use strict;
 use Net::IRC;
 use Data::Dumper;
 use IO::All;
@@ -18,6 +17,16 @@ use feature qw(say);
 use HTTP::Async;
 use Carp;
 
+use ASM::Util;
+use ASM::XML;
+use ASM::Inspect;
+use ASM::Event;
+use ASM::Services;
+use ASM::Log;
+use ASM::Commander;
+use ASM::Classes;
+use ASM::DB;
+
 $Data::Dumper::Useqq=1;
 
 $::pass = '';
@@ -72,11 +81,6 @@ sub alarmdeath
 $SIG{ALRM} = \&alarmdeath;
 alarm 300;
 
-BEGIN {
-my @modules = qw/Util Xml Inspect Event Services Log Command Classes Mysql/;
-require 'modules/' . lc $_ . '.pl' foreach @modules;
-}
-
 sub init {
   my ( $conn, $host );
   my $irc = new Net::IRC;
-- 
cgit v1.2.3