[perl #74740] Deparse -(f()) correctly

[perl5.git] / dist / B-Deparse / t / deparse.t

diff --git a/dist/B-Deparse/t/deparse.t b/dist/B-Deparse/t/deparse.t
index 8f2a4b8..d71eeaa 100644 (file)
--- a/dist/B-Deparse/t/deparse.t
+++ b/dist/B-Deparse/t/deparse.t
@@ -878,3 +878,6 @@ CORE::do({});
 # [perl #63558] open local(*FH)
 open local *FH;
 pipe local *FH, local *FH;
+####
+# [perl #74740] -(f()) vs -f()
+$_ = -(f());