| tst.remotetcpstate.ksh (211545) | tst.remotetcpstate.ksh (280773) |
|---|---|
| 1#!/usr/bin/ksh 2# 3# CDDL HEADER START 4# 5# The contents of this file are subject to the terms of the 6# Common Development and Distribution License (the "License"). 7# You may not use this file except in compliance with the License. 8# --- 70 unchanged lines hidden (view full) --- 79 my \$s = IO::Socket::INET->new( 80 Proto => "tcp", 81 PeerAddr => "$dest", 82 PeerPort => $tcpport, 83 Timeout => 3); 84 die "Could not connect to host $dest port $tcpport" unless \$s; 85 print \$s "testing state machine transitions"; 86 close \$s; | 1#!/usr/bin/ksh 2# 3# CDDL HEADER START 4# 5# The contents of this file are subject to the terms of the 6# Common Development and Distribution License (the "License"). 7# You may not use this file except in compliance with the License. 8# --- 70 unchanged lines hidden (view full) --- 79 my \$s = IO::Socket::INET->new( 80 Proto => "tcp", 81 PeerAddr => "$dest", 82 PeerPort => $tcpport, 83 Timeout => 3); 84 die "Could not connect to host $dest port $tcpport" unless \$s; 85 print \$s "testing state machine transitions"; 86 close \$s; |
| 87 sleep(2); |
|
| 87EOPERL 88 89$dtrace -c '/usr/bin/perl test.pl' -qs /dev/stdin <<EODTRACE 90BEGIN 91{ 92 ipsend = tcpsend = ipreceive = tcpreceive = 0; 93 connreq = connest = 0; 94} --- 78 unchanged lines hidden --- | 88EOPERL 89 90$dtrace -c '/usr/bin/perl test.pl' -qs /dev/stdin <<EODTRACE 91BEGIN 92{ 93 ipsend = tcpsend = ipreceive = tcpreceive = 0; 94 connreq = connest = 0; 95} --- 78 unchanged lines hidden --- |