Fixed a bug where the arguments to --pass and --config were considered optional (thanks mauke)

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';