projects
/
p5sagit/strictures.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
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