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

[p5sagit/strictures.git] / lib / strictures.pm

diff --git a/lib/strictures.pm b/lib/strictures.pm
index ac51ccc..c2b75b7 100644 (file)
--- 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