diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-02-08 16:15:52 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2009-06-23 20:56:34 +0100 |
commit | 38d7a3066bc4fa2fcc3fc29cb7d12ab60810f253 (patch) | |
tree | a11303fd53ea685a6cb094c7c5beeab4e3c2e6f9 /ext | |
parent | ce9a710cf3fef4991e1de00d7de8623bbab120c8 (diff) | |
download | perl-38d7a3066bc4fa2fcc3fc29cb7d12ab60810f253.tar.gz |
IO::Handle->say should ignore $\ (bug #49266)
p4raw-id: //depot/perl@33258
(cherry picked from commit 7b0f711abd55488cc790ac95f935f46d630a87bb)
Diffstat (limited to 'ext')
-rw-r--r-- | ext/IO/lib/IO/Handle.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/IO/lib/IO/Handle.pm b/ext/IO/lib/IO/Handle.pm index e47ae874f1..778841118b 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"; } |