From 96af81a5dcad4b4f8bba8cd5246e4b0f7e7e960a Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Mon, 27 Feb 2012 03:32:36 +0000
Subject: Fixed a bug where the arguments to --pass and --config were
 considered optional (thanks mauke)

---
 meta.pl | 14 ++++++--------
 1 file 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';
-- 
cgit v1.2.3