IO::Handle->say should ignore $\ (bug #49266)

p4raw-id: //depot/perl@33258

diff --git a/ext/IO/lib/IO/Handle.pm b/ext/IO/lib/IO/Handle.pm
index e47ae87..7788411 100644 (file)
--- a/ext/IO/lib/IO/Handle.pm
+++ b/ext/IO/lib/IO/Handle.pm
@@ -265,7 +265,7 @@ use IO ();  # Load the XS module
 require Exporter;
 @ISA = qw(Exporter);
 
-$VERSION = "1.27";
+$VERSION = "1.27_01";
 $VERSION = eval $VERSION;
 
 @EXPORT_OK = qw(
@@ -412,6 +412,7 @@ sub printf {
 sub say {
     @_ or croak 'usage: $io->say(ARGS)';
     my $this = shift;
+    local $\ = "";
     print $this @_, "\n";
 }