Bug fix from Xueron Nee <[email protected]> for -l args problems.

Added test cases to t/00-startup.t to insure this doesn't break.


git-svn-id: http://code.sixapart.com/svn/memcached/trunk/server@521 b0b603af-a30f-0410-a34e-baf09ae79d0b

memcached.c

@@ -2511,7 +2511,7 @@ int main (int argc, char **argv) {
             settings.verbose++;
             break;
         case 'l':
-            if (inet_pton(AF_INET, optarg, &addr) != 0) {
+            if (inet_pton(AF_INET, optarg, &addr) <= 0) {
                 fprintf(stderr, "Illegal address: %s\n", optarg);
                 return 1;
             } else {

t/00-startup.t

@@ -1,11 +1,21 @@
 #!/usr/bin/perl
 
 use strict;
-use Test::More tests => 1;
+use Test::More tests => 2;
 use FindBin qw($Bin);
 use lib "$Bin/lib";
 use MemcachedTest;
 
 my $server = new_memcached();
 
 ok($server, "started the server");
+
+eval {
+    my $server = new_memcached("-l fooble");
+};
+ok($@, "Died with illegal -l args");
+
+eval {
+    my $server = new_memcached("-l 127.0.0.1");
+};
+is($@,'', "-l 127.0.0.1 works");