diff options
| author | Gisle Aas <gisle@aas.no> | 2006-01-23 21:01:28 -0800 |
|---|---|---|
| committer | Gisle Aas <gisle@activestate.com> | 2006-01-24 15:37:25 +0000 |
| commit | 1576e684962a9b7e2100f3bcff6ad79fb0a8e169 (patch) | |
| tree | 1bb6eff7f390aec61e52101939d526323f2f9e4d | |
| parent | f8d2da6231d524e9fd538811e73b07868dff0ead (diff) | |
| download | perl-1576e684962a9b7e2100f3bcff6ad79fb0a8e169.tar.gz | |
Simplify &IO::Handle::say
Message-ID: <lrzmll7pav.fsf@caliper.activestate.com>
p4raw-id: //depot/perl@26941
| -rw-r--r-- | ext/IO/lib/IO/Handle.pm | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/ext/IO/lib/IO/Handle.pm b/ext/IO/lib/IO/Handle.pm index e3b3f7f1c2..86df089d1a 100644 --- 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 { |