[Mew-dist 12310] Re: im-13[5-7] imput error

[Hajimu UMEMOTO ( 梅本 肇 )]

  梅本＠IMASYです。

>>>>> On Wed, 9 Feb 2000 10:43:18 +0900
>>>>> Kazu Yamamoto (山本和彦) <kazu at example.com> said:

kazu> それで、12245 と 12247 のパッチを当ればこの問題は解決でしょうか？

  12247 の方に対するコメントだけ。
  im_getaddrinfo() が undef を返しちゃってるので、$#he_infos が 0 になっ
ちゃうんですね。これは、im_getaddrinfo() の側のバグです。というわけで、
パッチを添付します。[Mew-dist 12282] を当てたものからの差分になってい
ます。
-------------- next part --------------
Index: IM/TcpTransaction.pm
===================================================================
RCS file: /usr/home/ume/ncvs/src/im/IM/TcpTransaction.pm,v
retrieving revision 1.11
diff -u -r1.11 TcpTransaction.pm
--- IM/TcpTransaction.pm	2000/02/07 10:23:01	1.11
+++ IM/TcpTransaction.pm	2000/02/09 07:03:37
@@ -443,7 +443,7 @@
 	($pe_name, $pe_aliases, $pe_proto) = getprotobyname($proto);
     }
     $pe_proto = 6 unless ($pe_name);
-    return undef unless ($se_port = getserv($serv, $proto));
+    return unless ($se_port = getserv($serv, $proto));
 
     my ($he_name, $he_alias, $he_type, $he_len, @he_addrs);
     if ($node =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/) {
@@ -452,7 +452,7 @@
     } elsif ($node =~ /^[\da-f:]+$/i) {
 	if ($node =~ /::.*::/) {
 	    im_err("bad server address in IPv6 format: $node\n");
-	    return undef;
+	    return;
 	}
 	if ($node =~ /::/) {
 	    (my $t = $node) =~ s/[^:]//g;
@@ -470,14 +470,14 @@
 	    $family = inet6_family(); # AF_INET6
 	} else {
 	    im_err("bad server address in IPv6 format: $node\n");
-	    return undef;
+	    return;
 	}
     } else {
 	alarm(dns_timeout()) unless win95p();
 	($he_name, $he_alias, $he_type, $he_len, @he_addrs)
 	  = gethostbyname($node);
 	alarm(0) unless win95p();
-	return undef unless ($he_name);
+	return unless ($he_name);
 	$family = $he_type;
     }
 
-------------- next part --------------
梅本 肇 ＠ インターネット互助会横浜  http://www.imasy.org/~ume/
ume at example.com  ume at example.com  ume at example.com
プログラムは書いた人の意図ではなく書かれた通り動く