<br><span class="Apple-style-span" style="border-collapse: collapse; "><div>Here is the test case info</div><div><br></div><div>#cat use.t</div><div><br clear="all"><div>use strict;</div><div>use Test;</div><div>use Socket;</div>
<div>BEGIN { plan tests => 3 }</div><div><br></div><div>use <span class="il" style="background-image: initial; background-repeat: initial; background-attachment: initial; -webkit-background-clip: initial; -webkit-background-origin: initial; background-color: rgb(94, 160, 227); background-position: initial initial; ">Socket6</span>; ok(1);</div>
<div>my @tmp = getaddrinfo("localhost", "", AF_INET, SOCK_STREAM, 0, 0);</div><div>if ($#tmp >= 1) {</div><div> ok(2);</div><div>}</div><div>my($family, $socktype, $protocol, $sin, $canonname) = splice(@tmp, $[, 5);</div>
<div>my($addr, $port) = getnameinfo($sin, NI_NUMERICHOST | NI_NUMERICSERV);</div><div>if ($addr eq "127.0.0.1" && $port eq "0") {</div><div> ok(3);</div><div>}</div><div>exit;</div><div>__END__</div>
<div><br></div><div><br></div><div>This is passing fine in my AIX-53 machine, but if i include comment line ranging 100-200 lines( I have attache the file which is failing for me) , this test case is getting failed on the same machine.</div>
<div><br></div><div>Please help me out in debugging this strange defect.</div><div><br></div><div> If it is not recreatable for you, try to increase the comment lines and run the script.</div><div><div><span style="color: rgb(51, 102, 255); "><br>
</span></div><div><span style="color: rgb(51, 102, 255); "><span style="border-collapse: collapse; color: rgb(0, 0, 0); "><div><span style="color: rgb(255, 0, 0); ">Machine env details :</span></div><div><span style="color: rgb(255, 0, 0); ">AIX-53L</span></div>
<div><span style="color: rgb(255, 0, 0); ">perl-5.8.8</span></div><div><span style="color: rgb(255, 0, 0); ">openssl-0.9.8 </span></div><div><span style="color: rgb(255, 0, 0); ">Compiler : IBM xlc_r</span></div><div><font class="Apple-style-span" color="#FF0000"><br>
</font></div><div><font class="Apple-style-span" color="#FF0000"><br></font></div><div><font class="Apple-style-span" color="#FF0000"><br></font></div><div><font class="Apple-style-span" color="#FF0000"><br></font></div><div>
<font class="Apple-style-span" color="#FF0000">Failed test case ( Also attached) :</font></div><div><font class="Apple-style-span" color="#FF0000"><span class="Apple-style-span" style="color: rgb(0, 0, 0); "> If it is not recreatable for you, try to increase the comment lines and run the script.</span></font></div>
<div><font class="Apple-style-span" color="#FF0000"><br></font></div><div><font class="Apple-style-span" color="#FF0000"><div># cat use.t</div><div>#!/usr/bin/env perl -w</div><div><br></div><div># Copyright (C) 2003 Hajimu UMEMOTO <<a href="mailto:ume@mahoroba.org">ume@mahoroba.org</a>>.</div>
<div># All rights reserved.</div><div>#</div><div># Redistribution and use in source and binary forms, with or without</div><div># modification, are permitted provided that the following conditions</div><div># are met:</div>
<div># 1. Redistributions of source code must retain the above copyright</div><div># notice, this list of conditions and the following disclaimer.</div><div># 2. Redistributions in binary form must reproduce the above copyright</div>
<div># notice, this list of conditions and the following disclaimer in the</div><div># documentation and/or other materials provided with the distribution.</div><div># 3. Neither the name of the project nor the names of its contributors</div>
<div># may be used to endorse or promote products derived from this software</div><div># without specific prior written permission.</div><div>#</div><div># THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND</div>
<div># ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE</div><div># IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE</div><div># ARE DISCLAIMED. IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE</div>
<div># FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL</div><div># DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS</div><div># OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)</div>
<div># HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT</div><div># LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY</div><div># OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF</div>
<div># SUCH DAMAGE.</div><div><br></div><div># $Id: use.t,v 1.2 2005/08/27 16:10:54 ume Exp $</div><div><br></div><div>use strict;</div><div>use Test;</div><div>use Socket;</div><div>BEGIN { plan tests => 3 }</div><div>
<br></div><div>use Socket6; ok(1);</div><div>my @tmp = getaddrinfo("localhost", "", AF_INET, SOCK_STREAM, 0, 0);</div><div>if ($#tmp >= 1) {</div><div> ok(2);</div><div>}</div><div><br></div><div>
print "SSSSSSSSSSSS";</div><div><br></div><div>my($family, $socktype, $protocol, $sin, $canonname) = splice(@tmp, $[, 5);</div><div>print "KK \n\n";</div><div>print "$family \n\n";</div><div>
print "$protocol \n\n";</div><div><br></div><div>my($addr, $port) = getnameinfo($sin,NI_NUMERICHOST | NI_NUMERICSERV);</div><div><br></div><div>print "PORT = $port";</div><div><br></div><div>if ($addr eq "127.0.0.1")</div>
<div>{</div><div>if ($port eq "0") {</div><div> ok(3);</div><div>}</div><div>}</div><div>exit;</div><div>__END__</div><div><br></div></font></div><div><font class="Apple-style-span" color="#FF0000"><br></font></div>
<div><font class="Apple-style-span" color="#FF0000"><br></font></div></span></span></div></div><div><br></div></div></span>Thanks & Regards, <br><br>DIVAKAR ADARI,<br>IIT KHARAGPUR<br>