This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
c4cc4b6
)
constant.pm: outdated comment
author
Father Chrysostomos
<sprout@cpan.org>
Tue, 26 Aug 2014 04:43:31 +0000
(21:43 -0700)
committer
Father Chrysostomos
<sprout@cpan.org>
Tue, 26 Aug 2014 05:17:03 +0000
(22:17 -0700)
dist/constant/lib/constant.pm
patch
|
blob
|
blame
|
history
diff --git
a/dist/constant/lib/constant.pm
b/dist/constant/lib/constant.pm
index
548c962
..
a838d7e
100644
(file)
--- a/
dist/constant/lib/constant.pm
+++ b/
dist/constant/lib/constant.pm
@@
-24,7
+24,8
@@
my $boolean = qr/^[01]?\z/;
BEGIN {
# We'd like to do use constant _CAN_PCS => $] > 5.009002
# but that's a bit tricky before we load the constant module :-)
- # By doing this, we save 1 run time check for *every* call to import.
+ # By doing this, we save several run time checks for *every* call
+ # to import.
my $const = $] > 5.009002;
my $downgrade = $] < 5.015004; # && $] >= 5.008
my $constarray = exists &_make_const;