Change 16983: Update Errno slightly to latest version

Change 16983 by pudge@pudge-mobile on 2002/06/04 00:22:12

	Update Errno slightly to latest version

Affected files ...

.... //depot/macperl/macos/lib/Errno.pm#2 edit

Differences ...

==== //depot/macperl/macos/lib/Errno.pm#2 (text) ====
Index: macperl/macos/lib/Errno.pm
--- macperl/macos/lib/Errno.pm#1~16123~	Tue Apr 23 18:25:17 2002
+++ macperl/macos/lib/Errno.pm	Mon Jun  3 17:22:12 2002
@@ -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 ENOTEMPTY () { 66 }
 sub ELOOK () { 67 }
 sub ENOLCK () { 77 }
-sub ENOSYS () { 78 }
 sub ELAST () { 78 }
+sub ENOSYS () { 78 }
 
 sub TIEHASH { bless [] }
 
End of Patch.