1 files changed, 3 insertions, 0 deletions
diff --git a/lib/B/Deparse.t b/lib/B/Deparse.t
index 0ad4d00416..7fdf12506e 100644
--- a/lib/B/Deparse.t
+++ b/lib/B/Deparse.t
@@ -1907,6 +1907,9 @@ foo(bar(),baz());
 package prototest;
 &foo(scalar bar(), scalar baz());
 ####
+# coderef2text and prototyped sub calls [perl #123435]
+is 'foo', 'oo';
+####
 # ensure aelemfast works in the range -128..127 and that there's no
 # funky edge cases
 my $x;