This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Deparse pipe(local *FH, local *FH) correctly
[perl5.git] / dist / B-Deparse / t / deparse.t
index 4905d54..8f2a4b8 100644 (file)
@@ -877,3 +877,4 @@ CORE::do({});
 ####
 # [perl #63558] open local(*FH)
 open local *FH;
+pipe local *FH, local *FH;