Fix DBD parsing slow-up with Perl 5.20 and later

2017-10-09 14:45:01 +02:00
parent 169e9f2699
commit 32a6f6c4f1
1 changed files with 7 additions and 2 deletions
@@ -78,8 +78,13 @@ sub parseCommon {
        m/\G \s* /oxgc;

        # Extract POD
-        if (m/\G ( = [a-zA-Z] .* ) \n/oxgc) {
-            $obj->add_pod($1, &parsePod);
+        if (m/\G ( = [a-zA-Z] )/xgc) {
+	    # The above regex was split from the one below for performance.
+	    # Using m/\G ( = [a-zA-Z] .* ) \n/ is slow in Perl 5.20 and later.
+	    my $directive = $1;
+	    m/\G ( .* ) \n/xgc;
+	    $directive .= $1;
+            $obj->add_pod($directive, &parsePod);
        }
        elsif (m/\G \# /oxgc) {
            if (m/\G \# ! BEGIN \{ ( [^}]* ) \} ! \# \# \n/oxgc) {