From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 8 Feb 2008 16:15:52 +0000 (+0000)
Subject: IO::Handle->say should ignore $\ (bug #49266)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7b0f711abd55488cc790ac95f935f46d630a87bb;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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";
 }