From 8f8c2a4448d4895f07a65262094032f124603527 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 22 Jun 2010 09:59:49 +0100
Subject: 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.
---
 ext/Errno/Errno_pm.PL | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

(limited to 'ext/Errno')

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
 
 }
-- 
cgit v1.2.1