This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Use symbolic constant instead of number
authorKarl Williamson <khw@cpan.org>
Sun, 24 Aug 2014 00:49:58 +0000 (18:49 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 25 Aug 2014 17:13:41 +0000 (11:13 -0600)
This is in preparation for it to be used in more than one place.

regcomp.c

index a1beaf2..f200353 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -16705,12 +16705,16 @@ S_put_range(pTHX_ SV *sv, UV start, const UV end)
      * 'start' to 'end'.  It assumes that only ASCII printables are displayable
      * as-is (though some of these will be escaped by put_byte()). */
 
+    const int min_range_count = 3;
+
     assert(start <= end);
 
     PERL_ARGS_ASSERT_PUT_RANGE;
 
     while (start <= end) {
-        if (end - start < 3) {  /* Individual chars in short ranges */
+        if (end - start < min_range_count) {
+
+            /* Individual chars in short ranges */
             for (; start <= end; start++) {
                 put_byte(sv, start);
             }