diff options
| author | Chip Salzenberg <chip@pobox.com> | 1998-07-04 16:51:36 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-05 04:15:25 +0000 |
| commit | 56f7f34be21c292a158b632263ab6132603bb8ec (patch) | |
| tree | 5267af4e955b2a31bf4ec6d7a0ebf9b37bf6027d /ext | |
| parent | ebc74a4b06212bfe375379cdb78fad2ae96bd799 (diff) | |
| download | perl-56f7f34be21c292a158b632263ab6132603bb8ec.tar.gz | |
added patch with tweak to doc
Message-ID: <19980704205136.A16319@perlsupport.com>
Subject: [PATCH _69] Take 2: Warn on C<sub log; log($msg)>
p4raw-id: //depot/perl@1317
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/IO/lib/IO/Handle.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/IO/lib/IO/Handle.pm b/ext/IO/lib/IO/Handle.pm index 39e32f05ab..d3b0ce4aee 100644 --- a/ext/IO/lib/IO/Handle.pm +++ b/ext/IO/lib/IO/Handle.pm @@ -207,7 +207,7 @@ use SelectSaver; require Exporter; @ISA = qw(Exporter); -$VERSION = "1.1504"; +$VERSION = "1.1505"; $XS_VERSION = "1.15"; @EXPORT_OK = qw( @@ -520,10 +520,10 @@ sub format_write { if (@_ == 2) { my ($fh, $fmt) = @_; my $oldfmt = $fh->format_name($fmt); - write($fh); + CORE::write($fh); $fh->format_name($oldfmt); } else { - write($_[0]); + CORE::write($_[0]); } } |