From: Alexey Tourbin <at@altlinux.ru>
Date: Sat, 24 Feb 2007 15:52:23 +0000 (+0300)
Subject: ExtUtils/Constant/Base.pm: use constant folding to eliminated dead code
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=47520512bcc7563438628185c4d388f7da46a22c;p=p5sagit%2Fp5-mst-13.2.git

ExtUtils/Constant/Base.pm: use constant folding to eliminated dead code
Message-ID: <20070224125223.GA17227@localhost.localdomain>

p4raw-id: //depot/perl@30391
---

diff --git a/lib/ExtUtils/Constant/Base.pm b/lib/ExtUtils/Constant/Base.pm
index 48e0c37..7a37197 100644
--- a/lib/ExtUtils/Constant/Base.pm
+++ b/lib/ExtUtils/Constant/Base.pm
@@ -1,13 +1,13 @@
 package ExtUtils::Constant::Base;
 
 use strict;
-use vars qw($VERSION $is_perl56);
+use vars qw($VERSION);
 use Carp;
 use Text::Wrap;
 use ExtUtils::Constant::Utils qw(C_stringify perl_stringify);
-$VERSION = '0.03';
+$VERSION = '0.03_01';
 
-$is_perl56 = ($] < 5.007 && $] > 5.005_50);
+use constant is_perl56 => ($] < 5.007 && $] > 5.005_50);
 
 
 =head1 NAME
@@ -237,7 +237,7 @@ sub dump_names {
         next if $_->{utf8} eq 'no';
         # Copy the hashref, as we don't want to mess with the caller's hashref.
         $_ = {%$_};
-        unless ($is_perl56) {
+        unless (is_perl56) {
           utf8::decode ($_->{name});
         } else {
           $_->{name} = pack 'U*', unpack 'U0U*', $_->{name};
@@ -515,7 +515,7 @@ sub switch_clause {
   foreach my $i ($namelen - 1, 0 .. ($namelen - 2)) {
     my ($min, $max) = (~0, 0);
     my %spread;
-    if ($is_perl56) {
+    if (is_perl56) {
       # Need proper Unicode preserving hash keys for bytes in range 128-255
       # here too, for some reason. grr 5.6.1 yet again.
       tie %spread, 'ExtUtils::Constant::Aaargh56Hash';
@@ -728,7 +728,7 @@ sub normalise_items
           $item = {%$item};
         }
         # Encode the name as utf8 bytes.
-        unless ($is_perl56) {
+        unless (is_perl56) {
           utf8::encode($name);
         } else {
 #          warn "Was >$name< " . length ${name};
@@ -886,7 +886,7 @@ sub C_constant {
     ($namelen, $items) = @$breakout;
   } else {
     $items = {};
-    if ($is_perl56) {
+    if (is_perl56) {
       # Need proper Unicode preserving hash keys.
       require ExtUtils::Constant::Aaargh56Hash;
       tie %$items, 'ExtUtils::Constant::Aaargh56Hash';