summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Errno.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Errno.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Errno.pm227
1 files changed, 0 insertions, 227 deletions
diff --git a/Master/tlpkg/tlperl/lib/Errno.pm b/Master/tlpkg/tlperl/lib/Errno.pm
deleted file mode 100644
index 23c07ea0482..00000000000
--- a/Master/tlpkg/tlperl/lib/Errno.pm
+++ /dev/null
@@ -1,227 +0,0 @@
-#
-# This file is auto-generated. ***ANY*** changes here will be lost
-#
-
-package Errno;
-our (@EXPORT_OK,%EXPORT_TAGS,@ISA,$VERSION,%errno,$AUTOLOAD);
-use Exporter ();
-use strict;
-
-$VERSION = "1.09_01";
-$VERSION = eval $VERSION;
-@ISA = qw(Exporter);
-
-@EXPORT_OK = qw(EBADR ENOMSG ENOTSUP ESTRPIPE EADDRINUSE EL3HLT EBADF
- ENOTBLK ENAVAIL ECHRNG ENOTNAM ELNRNG ENOKEY EXDEV EBADE EBADSLT
- ECONNREFUSED ENOSTR ENONET EOVERFLOW EISCONN EFBIG EKEYREVOKED
- ECONNRESET EWOULDBLOCK ELIBMAX EREMOTEIO ENOPKG ELIBSCN EDESTADDRREQ
- ENOTSOCK EIO EMEDIUMTYPE EINPROGRESS ERANGE EAFNOSUPPORT EADDRNOTAVAIL
- EINTR EREMOTE EILSEQ ENOMEM EPIPE ENETUNREACH ENODATA EUSERS
- EOPNOTSUPP EPROTO EISNAM ESPIPE EALREADY ENAMETOOLONG ENOEXEC EISDIR
- EBADRQC EEXIST EDOTDOT ELIBBAD EOWNERDEAD ESRCH EFAULT EXFULL
- EDEADLOCK EAGAIN ENOPROTOOPT ENETDOWN EPROTOTYPE EL2NSYNC ENETRESET
- EUCLEAN EADV EROFS ESHUTDOWN EMULTIHOP EPROTONOSUPPORT ENFILE ENOLCK
- ECONNABORTED ECANCELED EDEADLK ESRMNT ENOLINK ETIME ENOTDIR EINVAL
- ENOTTY ENOANO ELOOP ENOENT EPFNOSUPPORT EBADMSG ENOMEDIUM EL2HLT EDOM
- EBFONT EKEYEXPIRED EMSGSIZE ENOCSI EL3RST ENOSPC EIDRM ENOBUFS ENOSYS
- EHOSTDOWN EBADFD ENOSR ENOTCONN ESTALE EDQUOT EKEYREJECTED EMFILE
- ENOTRECOVERABLE EACCES EBUSY E2BIG EPERM ELIBEXEC ETOOMANYREFS ELIBACC
- ENOTUNIQ ECOMM ERESTART ESOCKTNOSUPPORT EUNATCH ETIMEDOUT ENXIO ENODEV
- ETXTBSY EMLINK ECHILD EHOSTUNREACH EREMCHG ENOTEMPTY);
-
-%EXPORT_TAGS = (
- POSIX => [qw(
- E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EAFNOSUPPORT EAGAIN EALREADY
- EBADF EBUSY ECHILD ECONNABORTED ECONNREFUSED ECONNRESET EDEADLK
- EDESTADDRREQ EDOM EDQUOT EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH
- EINPROGRESS EINTR EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK
- EMSGSIZE ENAMETOOLONG ENETDOWN ENETRESET ENETUNREACH ENFILE ENOBUFS
- ENODEV ENOENT ENOEXEC ENOLCK ENOMEM ENOPROTOOPT ENOSPC ENOSYS ENOTBLK
- ENOTCONN ENOTDIR ENOTEMPTY ENOTSOCK ENOTTY ENXIO EOPNOTSUPP EPERM
- EPFNOSUPPORT EPIPE EPROTONOSUPPORT EPROTOTYPE ERANGE EREMOTE ERESTART
- EROFS ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH ESTALE ETIMEDOUT
- ETOOMANYREFS ETXTBSY EUSERS EWOULDBLOCK EXDEV
- )]
-);
-
-sub EPERM () { 1 }
-sub ENOENT () { 2 }
-sub ESRCH () { 3 }
-sub EINTR () { 4 }
-sub EIO () { 5 }
-sub ENXIO () { 6 }
-sub E2BIG () { 7 }
-sub ENOEXEC () { 8 }
-sub EBADF () { 9 }
-sub ECHILD () { 10 }
-sub EWOULDBLOCK () { 11 }
-sub EAGAIN () { 11 }
-sub ENOMEM () { 12 }
-sub EACCES () { 13 }
-sub EFAULT () { 14 }
-sub ENOTBLK () { 15 }
-sub EBUSY () { 16 }
-sub EEXIST () { 17 }
-sub EXDEV () { 18 }
-sub ENODEV () { 19 }
-sub ENOTDIR () { 20 }
-sub EISDIR () { 21 }
-sub EINVAL () { 22 }
-sub ENFILE () { 23 }
-sub EMFILE () { 24 }
-sub ENOTTY () { 25 }
-sub ETXTBSY () { 26 }
-sub EFBIG () { 27 }
-sub ENOSPC () { 28 }
-sub ESPIPE () { 29 }
-sub EROFS () { 30 }
-sub EMLINK () { 31 }
-sub EPIPE () { 32 }
-sub EDOM () { 33 }
-sub ERANGE () { 34 }
-sub EDEADLOCK () { 35 }
-sub EDEADLK () { 35 }
-sub ENAMETOOLONG () { 36 }
-sub ENOLCK () { 37 }
-sub ENOSYS () { 38 }
-sub ENOTEMPTY () { 39 }
-sub ELOOP () { 40 }
-sub ENOMSG () { 42 }
-sub EIDRM () { 43 }
-sub ECHRNG () { 44 }
-sub EL2NSYNC () { 45 }
-sub EL3HLT () { 46 }
-sub EL3RST () { 47 }
-sub ELNRNG () { 48 }
-sub EUNATCH () { 49 }
-sub ENOCSI () { 50 }
-sub EL2HLT () { 51 }
-sub EBADE () { 52 }
-sub EBADR () { 53 }
-sub EXFULL () { 54 }
-sub ENOANO () { 55 }
-sub EBADRQC () { 56 }
-sub EBADSLT () { 57 }
-sub EBFONT () { 59 }
-sub ENOSTR () { 60 }
-sub ENODATA () { 61 }
-sub ETIME () { 62 }
-sub ENOSR () { 63 }
-sub ENONET () { 64 }
-sub ENOPKG () { 65 }
-sub EREMOTE () { 66 }
-sub ENOLINK () { 67 }
-sub EADV () { 68 }
-sub ESRMNT () { 69 }
-sub ECOMM () { 70 }
-sub EPROTO () { 71 }
-sub EMULTIHOP () { 72 }
-sub EDOTDOT () { 73 }
-sub EBADMSG () { 74 }
-sub EOVERFLOW () { 75 }
-sub ENOTUNIQ () { 76 }
-sub EBADFD () { 77 }
-sub EREMCHG () { 78 }
-sub ELIBACC () { 79 }
-sub ELIBBAD () { 80 }
-sub ELIBSCN () { 81 }
-sub ELIBMAX () { 82 }
-sub ELIBEXEC () { 83 }
-sub EILSEQ () { 84 }
-sub ERESTART () { 85 }
-sub ESTRPIPE () { 86 }
-sub EUSERS () { 87 }
-sub ENOTSOCK () { 88 }
-sub EDESTADDRREQ () { 89 }
-sub EMSGSIZE () { 90 }
-sub EPROTOTYPE () { 91 }
-sub ENOPROTOOPT () { 92 }
-sub EPROTONOSUPPORT () { 93 }
-sub ESOCKTNOSUPPORT () { 94 }
-sub ENOTSUP () { 95 }
-sub EOPNOTSUPP () { 95 }
-sub EPFNOSUPPORT () { 96 }
-sub EAFNOSUPPORT () { 97 }
-sub EADDRINUSE () { 98 }
-sub EADDRNOTAVAIL () { 99 }
-sub ENETDOWN () { 100 }
-sub ENETUNREACH () { 101 }
-sub ENETRESET () { 102 }
-sub ECONNABORTED () { 103 }
-sub ECONNRESET () { 104 }
-sub ENOBUFS () { 105 }
-sub EISCONN () { 106 }
-sub ENOTCONN () { 107 }
-sub ESHUTDOWN () { 108 }
-sub ETOOMANYREFS () { 109 }
-sub ETIMEDOUT () { 110 }
-sub ECONNREFUSED () { 111 }
-sub EHOSTDOWN () { 112 }
-sub EHOSTUNREACH () { 113 }
-sub EALREADY () { 114 }
-sub EINPROGRESS () { 115 }
-sub ESTALE () { 116 }
-sub EUCLEAN () { 117 }
-sub ENOTNAM () { 118 }
-sub ENAVAIL () { 119 }
-sub EISNAM () { 120 }
-sub EREMOTEIO () { 121 }
-sub EDQUOT () { 122 }
-sub ENOMEDIUM () { 123 }
-sub EMEDIUMTYPE () { 124 }
-sub ECANCELED () { 125 }
-sub ENOKEY () { 126 }
-sub EKEYEXPIRED () { 127 }
-sub EKEYREVOKED () { 128 }
-sub EKEYREJECTED () { 129 }
-sub EOWNERDEAD () { 130 }
-sub ENOTRECOVERABLE () { 131 }
-
-sub TIEHASH { bless [] }
-
-sub FETCH {
- my ($self, $errname) = @_;
- my $proto = prototype("Errno::$errname");
- my $errno = "";
- if (defined($proto) && $proto eq "") {
- no strict 'refs';
- $errno = &$errname;
- $errno = 0 unless $! == $errno;
- }
- return $errno;
-}
-
-sub STORE {
- require Carp;
- Carp::confess("ERRNO hash is read only!");
-}
-
-*CLEAR = \&STORE;
-*DELETE = \&STORE;
-
-sub NEXTKEY {
- my($k,$v);
- while(($k,$v) = each %Errno::) {
- my $proto = prototype("Errno::$k");
- last if (defined($proto) && $proto eq "");
- }
- $k
-}
-
-sub FIRSTKEY {
- my $s = scalar keys %Errno::; # initialize iterator
- goto &NEXTKEY;
-}
-
-sub EXISTS {
- my ($self, $errname) = @_;
- my $r = ref $errname;
- my $proto = !$r || $r eq 'CODE' ? prototype($errname) : undef;
- defined($proto) && $proto eq "";
-}
-
-tie %!, __PACKAGE__;
-
-1;
-__END__
-