1 files changed, 0 insertions, 19 deletions
diff --git a/regress/sys/kern/splice/error-EPROTONOSUPPORT.pl b/regress/sys/kern/splice/error-EPROTONOSUPPORT.pl
deleted file mode 100755
index 652ad8b92e4..00000000000
--- a/regress/sys/kern/splice/error-EPROTONOSUPPORT.pl
+++ /dev/null
@@ -1,19 +0,0 @@
-#!/usr/bin/perl
-# test EPROTONOSUPPORT for splicing udp sockets
-
-use Errno;
-use IO::Socket;
-use BSD::Socket::Splice "SO_SPLICE";
-
-my $s = IO::Socket::INET->new(
-    Proto => "udp",
-) or die "socket failed: $!";
-
-my $ss = IO::Socket::INET->new(
-    Proto => "udp",
-) or die "socket splice failed: $!";
-
-$s->setsockopt(SOL_SOCKET, SO_SPLICE, pack('i', $ss->fileno()))
-    and die "splice udp sockets succeeded";
-$!{EPROTONOSUPPORT}
-    or die "error not EPROTONOSUPPORT: $!"