diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Errno.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Errno.pm | 45 |
1 files changed, 26 insertions, 19 deletions
diff --git a/Master/tlpkg/tlperl/lib/Errno.pm b/Master/tlpkg/tlperl/lib/Errno.pm index bd5fb6d0f72..89a4181f4e2 100644 --- a/Master/tlpkg/tlperl/lib/Errno.pm +++ b/Master/tlpkg/tlperl/lib/Errno.pm @@ -1,6 +1,7 @@ # -*- buffer-read-only: t -*- # -# This file is auto-generated. ***ANY*** changes here will be lost +# This file is auto-generated by ext/Errno/Errno_pm.PL. +# ***ANY*** changes here will be lost. # package Errno; @@ -9,10 +10,10 @@ use strict; use Config; "$Config{'archname'}-$Config{'osvers'}" eq -"MSWin32-x86-multi-thread-6.1" or - die "Errno architecture (MSWin32-x86-multi-thread-6.1) does not match executable architecture ($Config{'archname'}-$Config{'osvers'})"; +"MSWin32-x86-multi-thread-10.0" or + die "Errno architecture (MSWin32-x86-multi-thread-10.0) does not match executable architecture ($Config{'archname'}-$Config{'osvers'})"; -our $VERSION = "1.25"; +our $VERSION = "1.28"; $VERSION = eval $VERSION; our @ISA = 'Exporter'; @@ -684,6 +685,7 @@ BEGIN { ERROR_INVALID_OPLOCK_PROTOCOL => 301, ERROR_DISK_TOO_FRAGMENTED => 302, ERROR_DELETE_PENDING => 303, + ERROR_INVALID_TOKEN => 315, ERROR_MR_MID_NOT_FOUND => 317, ERROR_SCOPE_NOT_FOUND => 318, ERROR_INVALID_ADDRESS => 487, @@ -2514,17 +2516,17 @@ our %EXPORT_TAGS = ( ETXTBSY EUSERS EWOULDBLOCK EXDEV )], WINSOCK => [qw( - WSAEAFNOSUPPORT WSAEPFNOSUPPORT WSAEPROCLIM WSAEINPROGRESS - WSAENAMETOOLONG WSAENETDOWN WSAETIMEDOUT WSAESHUTDOWN - WSAEINVALIDPROVIDER WSAENETRESET WSAETOOMANYREFS WSAEINVAL - WSAEADDRNOTAVAIL WSAEREMOTE WSAENOMORE WSAENETUNREACH WSAEWOULDBLOCK - WSAEUSERS WSAECONNREFUSED WSAENOBUFS WSAEBADF WSAEHOSTUNREACH - WSAEMSGSIZE WSAEPROVIDERFAILEDINIT WSAEINTR WSAEPROTONOSUPPORT - WSAENOTCONN WSAEFAULT WSAEINVALIDPROCTABLE WSAECONNRESET WSAESTALE - WSAEOPNOTSUPP WSAEADDRINUSE WSAENOPROTOOPT WSAELOOP WSAEDESTADDRREQ - WSAEDQUOT WSAENOTSOCK WSAESOCKTNOSUPPORT WSAEALREADY WSAEPROTOTYPE - WSAECANCELLED WSAECONNABORTED WSAEREFUSED WSAEISCONN WSAEDISCON - WSAEHOSTDOWN WSAENOTEMPTY WSAEACCES WSAEMFILE + WSAEHOSTDOWN WSAENOTCONN WSAELOOP WSAESHUTDOWN WSAENOMORE WSAEALREADY + WSAEINVAL WSAENETDOWN WSAEPROVIDERFAILEDINIT WSAEMFILE WSAEFAULT + WSAEOPNOTSUPP WSAEREMOTE WSAENOPROTOOPT WSAEACCES WSAECONNABORTED + WSAENOBUFS WSAECONNRESET WSAEPROTONOSUPPORT WSAEINVALIDPROCTABLE + WSAESOCKTNOSUPPORT WSAEISCONN WSAESTALE WSAEDQUOT WSAEPFNOSUPPORT + WSAEHOSTUNREACH WSAETOOMANYREFS WSAEAFNOSUPPORT WSAEINTR + WSAEADDRNOTAVAIL WSAENETRESET WSAECANCELLED WSAENOTEMPTY WSAEREFUSED + WSAEDISCON WSAENOTSOCK WSAEMSGSIZE WSAEADDRINUSE WSAENETUNREACH + WSAEDESTADDRREQ WSAEINVALIDPROVIDER WSAENAMETOOLONG WSAEUSERS + WSAETIMEDOUT WSAEPROTOTYPE WSAEBADF WSAEWOULDBLOCK WSAEINPROGRESS + WSAEPROCLIM WSAECONNREFUSED )], ); @@ -2542,6 +2544,7 @@ sub STORE { Carp::confess("ERRNO hash is read only!"); } +# This is the true return value *CLEAR = *DELETE = \*STORE; # Typeglob aliasing uses less space sub NEXTKEY { @@ -2558,7 +2561,9 @@ sub EXISTS { exists $err{$errname}; } -tie %!, __PACKAGE__; # Returns an object, objects are true. +sub _tie_it { + tie %{$_[0]}, __PACKAGE__; +} __END__ @@ -2583,9 +2588,8 @@ file. These are included in a second export tag, C<:WINSOCK>. C<Errno> also makes C<%!> magic such that each element of C<%!> has a non-zero value only if C<$!> is set to that value. For example: - use Errno; - - unless (open(FH, "/fangorn/spouse")) { + my $fh; + unless (open($fh, "<", "/fangorn/spouse")) { if ($!{ENOENT}) { warn "Get a wife!\n"; } else { @@ -2597,6 +2601,9 @@ If a specified constant C<EFOO> does not exist on the system, C<$!{EFOO}> returns C<"">. You may use C<exists $!{EFOO}> to check whether the constant is available on the system. +Perl automatically loads C<Errno> the first time you use C<%!>, so you don't +need an explicit C<use>. + =head1 CAVEATS Importing a particular constant may not be very portable, because the |