[perl #86060] $( $| $) need braces in regexps

diff --git a/dist/B-Deparse/Deparse.pm b/dist/B-Deparse/Deparse.pm
index 27c6773..ec5295e 100644 (file)
--- a/dist/B-Deparse/Deparse.pm
+++ b/dist/B-Deparse/Deparse.pm
@@ -4440,7 +4440,9 @@ sub re_dq {
     } elsif ($type eq "join") {
        return $self->deparse($op->last, 26); # was join($", @ary)
     } else {
-       return $self->deparse($op, 26);
+       my $ret = $self->deparse($op, 26);
+       $ret =~ s/^\$([(|)])\z/\${$1}/; # $( $| $) need braces
+       return $ret;
     }
 }
 

diff --git a/dist/B-Deparse/t/deparse.t b/dist/B-Deparse/t/deparse.t
index f050faa..6ede945 100644 (file)
--- a/dist/B-Deparse/t/deparse.t
+++ b/dist/B-Deparse/t/deparse.t
@@ -934,6 +934,12 @@ my @x;
 () = *#;
 () = "${#}a";
 ####
+# [perl #86060] $( $| $) in regexps need braces
+/${(}/;
+/${|}/;
+/${)}/;
+/${(}${|}${)}/;
+####
 # ()[...]
 my(@a) = ()[()];
 ####