Tweak the generated Errno.pm slightly. Shorter and slightly fewer ops.

Use our directly at the first assignment, rather than on a line by itself.
Add editor readonly blocks, consistent with most other generated files.
require Exporter, rather than using it with an empty import list. We don't need
it at compile time.

1 files changed, 7 insertions, 8 deletions

diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL
index e0e328fe59..0899ddea91 100644
--- a/ext/Errno/Errno_pm.PL
+++ b/ext/Errno/Errno_pm.PL
@@ -334,13 +334,13 @@ EOF
     # Write Errno.pm
 
     print <<"EDQ";
+# -*- buffer-read-only: t -*-
 #
 # This file is auto-generated. ***ANY*** changes here will be lost
 #
 
 package Errno;
-our (\@ISA,\$VERSION);
-use Exporter ();
+require Exporter;
 use Config;
 use strict;
 
@@ -348,9 +348,9 @@ use strict;
 "$Config{'archname'}-$Config{'osvers'}" or
 	die "Errno architecture ($Config{'archname'}-$Config{'osvers'}) does not match executable architecture (\$Config{'archname'}-\$Config{'osvers'})";
 
-\$VERSION = "$VERSION";
+our \$VERSION = "$VERSION";
 \$VERSION = eval \$VERSION;
-\@ISA = qw(Exporter);
+our \@ISA = 'Exporter';
 
 my %err;
 
@@ -378,11 +378,9 @@ print <<'ESQ';
     }
 }
 
-our (@EXPORT_OK, %EXPORT_TAGS);
+our @EXPORT_OK = keys %err;
 
-@EXPORT_OK = keys %err;
-
-%EXPORT_TAGS = (
+our %EXPORT_TAGS = (
     POSIX => [qw(
 ESQ
 
@@ -493,6 +491,7 @@ under the same terms as Perl itself.
 
 =cut
 
+# ex: set ro:
 ESQ
 
 }