From: Graham Knop <haarg@haarg.org>
Date: Sat, 14 Sep 2013 23:12:28 +0000 (+0000)
Subject: avoid constant.pm to save some memory (due to utf8)
X-Git-Tag: v1.005000~8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=500f28df33b398cfb8774e5e7c8c7e9c9894700f;p=p5sagit%2Fstrictures.git

avoid constant.pm to save some memory (due to utf8)
---

diff --git a/lib/strictures.pm b/lib/strictures.pm
index ac51ccc..c2b75b7 100644
--- a/lib/strictures.pm
+++ b/lib/strictures.pm
@@ -3,7 +3,9 @@ package strictures;
 use strict;
 use warnings FATAL => 'all';
 
-use constant _PERL_LT_5_8_4 => ($] < 5.008004) ? 1 : 0;
+BEGIN {
+  *_PERL_LT_5_8_4 = ($] < 5.008004) ? sub(){1} : sub(){0};
+}
 
 our $VERSION = '1.004004'; # 1.4.4