added Errno.pm to make File::Temp usable: File::Temp is included into tlperl

but it requires Errno.pm to work.


git-svn-id: svn://tug.org/texlive/trunk@7483 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 227 insertions, 0 deletions

diff --git a/Master/tlpkg/tlperl/lib/Errno.pm b/Master/tlpkg/tlperl/lib/Errno.pm
new file mode 100644
index 00000000000..23c07ea0482
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/Errno.pm
@@ -0,0 +1,227 @@
+#
+# 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__
+