1 files changed, 0 insertions, 76 deletions
diff --git a/storage/ndb/tools/old_dirs/ndbnet/lib/NDB/Util/SocketUNIX.pm b/storage/ndb/tools/old_dirs/ndbnet/lib/NDB/Util/SocketUNIX.pm
deleted file mode 100644
index 9c6b3115f6a..00000000000
--- a/storage/ndb/tools/old_dirs/ndbnet/lib/NDB/Util/SocketUNIX.pm
+++ /dev/null
@@ -1,76 +0,0 @@
-package NDB::Util::SocketUNIX;
-
-use strict;
-use Carp;
-use Symbol;
-use Socket;
-use Errno;
-
-require NDB::Util::Socket;
-
-use vars qw(@ISA);
-@ISA = qw(NDB::Util::Socket);
-
-# constructors
-
-my $log;
-
-sub initmodule {
-    $log = NDB::Util::Log->instance;
-}
-
-NDB::Util::SocketUNIX->attributes(
-    path => sub { /^\S+$/ },
-);
-
-sub new {
-    my $class = shift;
-    @_ % 2 == 0 or confess 0+@_;
-    my(%attr) = @_;
-    my $socket = $class->SUPER::new(%attr,
-	domain => PF_UNIX, type => SOCK_STREAM, proto => 0)
-	or $log->push, return undef;
-    return $socket;
-}
-
-sub connect {
-    my $socket = shift;
-    @_ == 1 or confess 0+@_;
-    my($path) = @_;
-    $path =~ /^\S+$/ or confess 'oops';
-    my $paddr = pack_sockaddr_un($path);
-    $socket->SUPER::connect($paddr)
-	or $log->push, return undef;
-    $socket->setpath($path)
-	or $log->push, return undef;
-    return 1;
-}
-
-sub bind {
-    my $socket = shift;
-    @_ == 1 or confess 0+@_;
-    my($path) = @_;
-    $path =~ /^\S+$/ or confess 'oops';
-    my $paddr = pack_sockaddr_un($path);
-    $socket->SUPER::bind($paddr)
-	or $log->push, return undef;
-    $socket->setpath($path)
-	or $log->push, return undef;
-    return 1;
-}
-
-sub acceptaddr {
-    my $csocket = shift;
-    @_ == 1 or confess 0+@_;
-    my($paddr) = @_;
-    return 1;		# crash
-    my $path = unpack_sockaddr_un($paddr);
-    $csocket->setpath($path)
-	or $log->push, return undef;
-    $log->put("%s accept: path=%s",
-	$csocket->getpath)->push($csocket)->debug;
-    return 1;
-}
-
-1;
-# vim:set sw=4: