external/bsd/bind/dist/bin/tests/system/testsock6.pl

   1 #!/usr/bin/perl
   2 #
   3 # Copyright (C) 2010, 2012, 2014  Internet Systems Consortium, Inc. ("ISC")
   4 #
   5 # Permission to use, copy, modify, and/or distribute this software for any
   6 # purpose with or without fee is hereby granted, provided that the above
   7 # copyright notice and this permission notice appear in all copies.
   8 #
   9 # THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH
  10 # REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
  11 # AND FITNESS.  IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,
  12 # INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
  13 # LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
  14 # OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  15 # PERFORMANCE OF THIS SOFTWARE.
  16
  17 # Id: testsock6.pl,v 1.5 2010/06/22 23:46:52 tbox Exp
  18
  19 require 5.001;
  20
  21 use IO::Socket::INET6;
  22
  23 foreach $addr (@ARGV) {
  24         my $sock;
  25         $sock = IO::Socket::INET6->new(LocalAddr => $addr,
  26                                        LocalPort => 0,
  27                                        Proto     => tcp)
  28                              or die "Can't bind : $@\n";
  29         close($sock);
  30 }