This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Use NULL first parameter to _invlist_union
[perl5.git] / regcomp.c
index e474b30..27309ff 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -10444,12 +10444,7 @@ parseit:
                             swash = NULL;
                         }
                         else {
-                           if (! properties) {
-                               properties = invlist_clone(invlist);
-                           }
-                           else {
-                               _invlist_union(properties, invlist, &properties);
-                           }
+                            _invlist_union(properties, invlist, &properties);
                        }
                    }
                    Safefree(name);