Change 33258 by [EMAIL PROTECTED] on 2008/02/08 16:15:52
IO::Handle->say should ignore $\ (bug #49266)
Affected files ...
... //depot/perl/ext/IO/lib/IO/Handle.pm#39 edit
Differences ...
==== //depot/perl/ext/IO/lib/IO/Handle.pm#39 (text) ====
Index: perl/ext/IO/lib/IO/Handle.pm
--- perl/ext/IO/lib/IO/Handle.pm#38~27609~ 2006-03-25 18:49:11.000000000
-0800
+++ perl/ext/IO/lib/IO/Handle.pm 2008-02-08 08:15:52.000000000 -0800
@@ -265,7 +265,7 @@
require Exporter;
@ISA = qw(Exporter);
-$VERSION = "1.27";
+$VERSION = "1.27_01";
$VERSION = eval $VERSION;
@EXPORT_OK = qw(
@@ -412,6 +412,7 @@
sub say {
@_ or croak 'usage: $io->say(ARGS)';
my $this = shift;
+ local $\ = "";
print $this @_, "\n";
}
End of Patch.
