Add OP_MULTIDEREF

[perl5.git] / ext / B / B / Concise.pm

diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm
index 381181e..311e0e7 100644 (file)
--- a/ext/B/B/Concise.pm
+++ b/ext/B/B/Concise.pm
@@ -916,7 +916,7 @@ sub concise_op {
         }
     }
     elsif ($h{class} eq "UNOP_AUX") {
-        $h{arg} = "(" . $op->string . ")";
+        $h{arg} = "(" . $op->string($curcv) . ")";
     }
 
     $h{seq} = $h{hyphseq} = seq($op);