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.pm45
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