This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make Deparse handle "say"
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 13 Sep 2007 08:58:07 +0000 (08:58 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 13 Sep 2007 08:58:07 +0000 (08:58 +0000)
p4raw-id: //depot/perl@31860

ext/B/B/Deparse.pm

index 024f3eb..821c9cd 100644 (file)
@@ -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 {