X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/2f7c6295c991839e20b09fbf3107b861d511de31..fedf30e1c349130b23648c022f5f3cb4ad7928f3:/ext/B/B/Concise.pm

diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm
index 381181e..311e0e7 100644
--- 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);