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# --- 65 unchanged lines hidden (view full) --- 74 my \$s = IO::Socket::INET->new( 75 Proto => "tcp", 76 PeerAddr => "$local", 77 PeerPort => $tcpport, 78 Timeout => 3); 79 die "Could not connect to host $local port $tcpport" unless \$s; 80 print \$s "testing state machine transitions"; 81 close \$s; |
82 sleep(2); |
83EOPERL 84 85$dtrace -c '/usr/bin/perl test.pl' -qs /dev/stdin <<EODTRACE 86BEGIN 87{ 88 ipsend = tcpsend = ipreceive = tcpreceive = 0; 89 connreq = connest = connaccept = 0; 90} --- 93 unchanged lines hidden --- |