This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Tweak the generated Errno.pm slightly. Shorter and slightly fewer ops.
authorNicholas Clark <nick@ccl4.org>
Tue, 22 Jun 2010 08:59:49 +0000 (09:59 +0100)
committerNicholas Clark <nick@ccl4.org>
Wed, 23 Jun 2010 07:44:43 +0000 (08:44 +0100)
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

index e0e328f..0899dde 100644 (file)
@@ -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
 
 }