Errno: mention that using %! autoloads Errno (RT #119359)

Also use lexical filehandles/3-arg open in example.

1 files changed, 8 insertions, 5 deletions

diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL
index 3c5c443c03..8b1286dde6 100644
--- a/ext/Errno/Errno_pm.PL
+++ b/ext/Errno/Errno_pm.PL
@@ -2,7 +2,7 @@ use ExtUtils::MakeMaker;
 use Config;
 use strict;
 
-our $VERSION = "1.26";
+our $VERSION = "1.27";
 
 my %err = ();
 
@@ -280,7 +280,8 @@ sub write_errno_pm {
     print <<"EDQ";
 # -*- 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;
@@ -435,9 +436,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 {
@@ -449,6 +449,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