diff options
author | Norbert Preining <preining@logic.at> | 2010-05-12 16:51:27 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2010-05-12 16:51:27 +0000 |
commit | b645030efc22e13c2498a1522083634ab91b2de1 (patch) | |
tree | c75c7a71998200d419af56eb755dac2f5115b585 /Master/tlpkg/tlperl/lib/Errno.pm | |
parent | 44ccd4efc5352f9eb1099ba357708e7b5ff03b83 (diff) |
move tlperl to tlperl.old
git-svn-id: svn://tug.org/texlive/trunk@18209 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Errno.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Errno.pm | 227 |
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__ - |