Update Errno slightly to latest version

p4raw-id: //depot/macperl@16983

diff --git a/macos/lib/Errno.pm b/macos/lib/Errno.pm
index 378a35d..7c6f515 100644 (file)
--- a/macos/lib/Errno.pm
+++ b/macos/lib/Errno.pm
@@ -3,28 +3,29 @@
 #
 
 package Errno;
-use vars qw(@EXPORT_OK %EXPORT_TAGS @ISA $VERSION %errno $AUTOLOAD);
+our (@EXPORT_OK,%EXPORT_TAGS,@ISA,$VERSION,%errno,$AUTOLOAD);
 use Exporter ();
 use Config;
 use strict;
 
 #"$Config{'archname'}-$Config{'osvers'}" eq
-#"-" or
-#      die "Errno architecture (-) does not match executable architecture ($Config{'archname'}-$Config{'osvers'})";
+#"MacPPC-9.2.2" or
+#      die "Errno architecture (MacPPC-9.2.2) does not match executable architecture ($Config{'archname'}-$Config{'osvers'})";
 
-$VERSION = "1.111";
+$VERSION = "1.09_00";
+$VERSION = eval $VERSION;
 @ISA = qw(Exporter);
 
-@EXPORT_OK = qw(EPIPE ENOTSOCK ENOSPC EISCONN EOPNOTSUPP ENOTTY
-       ESHUTDOWN EAFNOSUPPORT ENETUNREACH EADDRNOTAVAIL EAGAIN
-       ESOCKTNOSUPPORT ENOTDIR EINPROGRESS ESRCH EISDIR EROFS EEXIST EBADF
-       ENOPROTOOPT EINVAL ENOLCK ELOOK ENAMETOOLONG EMSGSIZE EDESTADDRREQ
-       EINTR EPROTONOSUPPORT ELOOP ECONNREFUSED EPROTOTYPE EDEADLK EIO
-       ECONNRESET ENETDOWN EFBIG ENOEXEC ENOTCONN ENFILE EACCES ETIMEDOUT
-       EPERM ERANGE ECANCELED ESPIPE ENOMEM ENOSYS EXDEV ELAST ECHILD
-       EPFNOSUPPORT ENODEV EALREADY EMLINK ENXIO ETOOMANYREFS EADDRINUSE
-       E2BIG EBUSY ECONNABORTED ENOENT ENETRESET ENOTEMPTY EDOM EHOSTUNREACH
-       ENOBUFS EFAULT EHOSTDOWN EMFILE);
+@EXPORT_OK = qw(ELAST EROFS ESHUTDOWN EPROTONOSUPPORT ENOLCK ENFILE
+       EADDRINUSE ECONNABORTED ECANCELED EBADF EDEADLK ENOTDIR ENOTTY EINVAL
+       EXDEV ELOOP ECONNREFUSED EISCONN EFBIG ECONNRESET EPFNOSUPPORT ENOENT
+       EDOM EMSGSIZE EIO ENOSPC ENOTSOCK EDESTADDRREQ ENOBUFS ERANGE
+       EINPROGRESS EAFNOSUPPORT EADDRNOTAVAIL ENOSYS EINTR EHOSTDOWN ENOMEM
+       EPIPE ENETUNREACH ENOTCONN EOPNOTSUPP ESPIPE EALREADY EMFILE
+       ENAMETOOLONG EACCES ENOEXEC EISDIR EBUSY EPERM E2BIG EEXIST
+       ETOOMANYREFS ESOCKTNOSUPPORT ETIMEDOUT ESRCH ENXIO ENODEV EFAULT ELOOK
+       EAGAIN EMLINK ENOPROTOOPT ECHILD ENETDOWN EHOSTUNREACH EPROTOTYPE
+       ENETRESET ENOTEMPTY);
 
 %EXPORT_TAGS = (
     POSIX => [qw(
@@ -108,8 +109,8 @@ sub EHOSTUNREACH () { 65 }
 sub ENOTEMPTY () { 66 }
 sub ELOOK () { 67 }
 sub ENOLCK () { 77 }
-sub ENOSYS () { 78 }
 sub ELAST () { 78 }
+sub ENOSYS () { 78 }
 
 sub TIEHASH { bless [] }