From: Gisle Aas <gisle@activestate.com>
Date: Sat, 20 Sep 2008 18:13:37 +0000 (+0000)
Subject: Implement IO::Handle::say the same way as the builtin say().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5eb30066fe9d342a31fbfdb741041326bde4087b;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/ext/IO/lib/IO/Handle.pm b/ext/IO/lib/IO/Handle.pm
index 7788411..fa49896 100644
--- a/ext/IO/lib/IO/Handle.pm
+++ b/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 {