summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xmeta.pl14
1 files changed, 6 insertions, 8 deletions
diff --git a/meta.pl b/meta.pl
index 60cb144..1a1a879 100755
--- a/meta.pl
+++ b/meta.pl
@@ -1,12 +1,10 @@
#!/usr/bin/perl -w
use lib '/home/icxcnika/AntiSpamMeta';
-#use Devel::Profiler
-# package_filter => sub {
-# my $pkg = shift;
-# return 0 if $pkg =~ /^XML::Simple/;
-# return 1;
-# };
+
+#use Devel::Profiler package_filter => sub { return 0 if $_[0] =~ /^XML::Simple/; return 1; };
+
+
use warnings;
use strict;
use Net::IRC;
@@ -36,8 +34,8 @@ sub init {
my ( $conn, $host );
my $irc = new Net::IRC;
GetOptions( 'debug|d!' => \$::debug,
- 'pass|p:s' => \$::pass,
- 'config|c:s' => \$::cset
+ 'pass|p=s' => \$::pass,
+ 'config|c=s' => \$::cset
);
if ($::cset eq '') {
$::cset = 'config-default';