Attempt at making IO::Handle backwards compatible again

p4raw-id: //depot/perl@26405

diff --git a/ext/IO/lib/IO/Handle.pm b/ext/IO/lib/IO/Handle.pm
index 551988b..e3b3f7f 100644 (file)
--- a/ext/IO/lib/IO/Handle.pm
+++ b/ext/IO/lib/IO/Handle.pm
@@ -409,11 +409,16 @@ sub printf {
     printf $this @_;
 }
 
-sub say {
-    @_ or croak 'usage: $io->say(ARGS)';
-    my $this = shift;
-    use feature 'say';
-    say $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 getline {