Implement IO::Handle::say the same way as the builtin say().

IO::Handle::say used to output $, before the newline.

p4raw-id: //depot/perl@34384
(cherry picked from commit 5eb3006)

Author: gisle

ext/IO/lib/IO/Handle.pm

@@ -412,8 +412,8 @@ sub printf {
 sub say {
     @_ or croak 'usage: $io->say(ARGS)';
     my $this = shift;
-    local $\ = "";
-    print $this @_, "\n";
+    local $\ = "\n";
+    print $this @_;
 }
 
 sub getline {