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

[Gisle Aas]

Change 34384 by [EMAIL PROTECTED] on 2008/09/20 18:13:37

        Implement IO::Handle::say the same way as the builtin say().
        IO::Handle::say used to output $, before the newline.

Affected files ...

... //depot/perl/ext/IO/lib/IO/Handle.pm#40 edit

Differences ...

==== //depot/perl/ext/IO/lib/IO/Handle.pm#40 (text) ====
Index: perl/ext/IO/lib/IO/Handle.pm
--- perl/ext/IO/lib/IO/Handle.pm#39~33258~      2008-02-08 08:15:52.000000000 
-0800
+++ perl/ext/IO/lib/IO/Handle.pm        2008-09-20 11:13:37.000000000 -0700
@@ -412,8 +412,8 @@
 sub say {
     @_ or croak 'usage: $io->say(ARGS)';
     my $this = shift;
-    local $\ = "";
-    print $this @_, "\n";
+    local $\ = "\n";
+    print $this @_;
 }
 
 sub getline {
End of Patch.