This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Remove unnecessary test
authorKarl Williamson <khw@cpan.org>
Fri, 29 Aug 2014 00:13:47 +0000 (18:13 -0600)
committerKarl Williamson <khw@cpan.org>
Wed, 3 Sep 2014 18:43:14 +0000 (12:43 -0600)
The 'while' makes the 'if' unnecessary here.

regcomp.c

index ef6cae9..02cd9ae 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -16829,11 +16829,9 @@ S_put_range(pTHX_ SV *sv, UV start, const UV end, const bool allow_literals)
          * mnemonic names.  Split off any of those at the beginning and end of
          * the range to print mnemonically.  It isn't possible for many of
          * these to be in a row, so this won't overwhelm with output */
          * mnemonic names.  Split off any of those at the beginning and end of
          * the range to print mnemonically.  It isn't possible for many of
          * these to be in a row, so this won't overwhelm with output */
-        if (isMNEMONIC_CNTRL(start)) {
-            while (isMNEMONIC_CNTRL(start) && start <= end) {
-                put_byte(sv, start);
-                start++;
-            }
+        while (isMNEMONIC_CNTRL(start) && start <= end) {
+            put_byte(sv, start);
+            start++;
         }
         if (start < end && isMNEMONIC_CNTRL(end)) {
 
         }
         if (start < end && isMNEMONIC_CNTRL(end)) {