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