This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
B::Deparse misdeparses qq(@,)
[perl5.git] / dist / B-Deparse / t / deparse.t
index 18ab953..ab50b5a 100644 (file)
@@ -208,6 +208,16 @@ sub BEGIN {
 }
 EOCODF
 
+# [perl #93990]
+is($deparse->coderef2text(sub{ print "@{*}" }),
+q<{
+    print "@{*}";
+}>, 'curly around to interpolate "@{*}"');
+is($deparse->coderef2text(sub{ print "@{-}" }),
+q<{
+    print "@-";
+}>, 'no need to curly around to interpolate "@-"');
+
 done_testing();
 
 __DATA__