This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
constant.pm: outdated comment
authorFather Chrysostomos <sprout@cpan.org>
Tue, 26 Aug 2014 04:43:31 +0000 (21:43 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 26 Aug 2014 05:17:03 +0000 (22:17 -0700)
dist/constant/lib/constant.pm

index 548c962..a838d7e 100644 (file)
@@ -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;