This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #77096] Deparse return and do without llafr
[perl5.git] / dist / B-Deparse / t / deparse.t
index 221003a..badf0da 100644 (file)
@@ -835,3 +835,11 @@ do +{};
 >>>>
 do({});
 do({});
+####
+# [perl #77096] functions that do not follow the llafr
+() = (return 1) + time;
+() = (return ($1 + $2) * $3) + time;
+() = (return ($a xor $b)) + time;
+() = (do 'file') + time;
+() = (do ($1 + $2) * $3) + time;
+() = (do ($1 xor $2)) + time;