Simplify &IO::Handle::say
Gisle Aas [Tue, 24 Jan 2006 05:01:28 +0000 (21:01 -0800)]
Message-ID: <lrzmll7pav.fsf@caliper.activestate.com>

p4raw-id: //depot/perl@26941

ext/IO/lib/IO/Handle.pm

index e3b3f7f..86df089 100644 (file)
@@ -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 {