From: Gisle Aas <gisle@activestate.com>
Date: Wed, 18 Jan 2006 14:41:17 +0000 (+0000)
Subject: Use the IPPROTO_TCP constant instead of 6.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=38f5dce2f24ba3440370804d9745b36dc261f941;p=p5sagit%2Fp5-mst-13.2.git

Use the IPPROTO_TCP constant instead of 6.

p4raw-id: //depot/perl@26902
---

diff --git a/ext/Socket/t/Socket.t b/ext/Socket/t/Socket.t
index b8d6ab0..f707999 100755
--- a/ext/Socket/t/Socket.t
+++ b/ext/Socket/t/Socket.t
@@ -12,7 +12,7 @@ BEGIN {
     $has_alarm = $Config{d_alarm};
 }
 	
-use Socket;
+use Socket qw(:all);
 
 print "1..17\n";
 
@@ -22,7 +22,7 @@ sub arm      { $alarmed = 0; alarm(shift) if $has_alarm }
 sub alarmed  { $alarmed = 1 }
 $SIG{ALRM} = 'alarmed'                    if $has_alarm;
 
-if (socket(T,PF_INET,SOCK_STREAM,6)) {
+if (socket(T, PF_INET, SOCK_STREAM, IPPROTO_TCP)) {
   print "ok 1\n";
   
   arm(5);
@@ -70,7 +70,7 @@ else {
 	print "not ok 1\n";
 }
 
-if( socket(S,PF_INET,SOCK_STREAM,6) ){
+if( socket(S, PF_INET,SOCK_STREAM, IPPROTO_TCP) ){
   print "ok 4\n";
 
   arm(5);