Make Deparse handle "say"

p4raw-id: //depot/perl@31860

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 024f3eb..821c9cd 100644 (file)
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -2413,6 +2413,7 @@ sub indirop {
 
 sub pp_prtf { indirop(@_, "printf") }
 sub pp_print { indirop(@_, "print") }
+sub pp_say  { indirop(@_, "say") }
 sub pp_sort { indirop(@_, "sort") }
 
 sub mapop {