Simplify &IO::Handle::say

Message-ID: <lrzmll7pav.fsf@caliper.activestate.com>

p4raw-id: //depot/perl@26941

diff --git a/ext/IO/lib/IO/Handle.pm b/ext/IO/lib/IO/Handle.pm
index e3b3f7f..86df089 100644 (file)
--- a/ext/IO/lib/IO/Handle.pm
+++ b/ext/IO/lib/IO/Handle.pm
@@ -409,16 +409,10 @@ sub printf {
     printf $this @_;
 }
 
-if ($] >= 5.009003) {
-    *say = eval q{ sub {
-       @_ or croak 'usage: $io->say(ARGS)';
-       my $this = shift;
-       use feature 'say';
-       say $this @_;
-    }};
-}
-else {
-    *say = sub { croak "say() is not implemented for this version of perl\n" };
+sub say {
+    @_ or croak 'usage: $io->say(ARGS)';
+    my $this = shift;
+    print $this @_, "\n";
 }
 
 sub getline {