diff options
| author | Chip Salzenberg <chip@atlantic.net> | 1996-11-18 18:06:58 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1996-11-19 14:16:00 +1200 |
| commit | 66b5b9b719a73ccb69aa5b9b38c5ebad57f7e26a (patch) | |
| tree | 95ab02120384d296f90ccebd7a54ca3b37c75023 | |
| parent | 0bc14741b510bc3cc5fb491c64b09b0044015de8 (diff) | |
| download | perl-66b5b9b719a73ccb69aa5b9b38c5ebad57f7e26a.tar.gz | |
Kludge for bareword handles
Add 'require IO::Handle' at beginning of FileHandle.pm
| -rw-r--r-- | ext/FileHandle/FileHandle.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ext/FileHandle/FileHandle.pm b/ext/FileHandle/FileHandle.pm index d479dae08c..ada75a301f 100644 --- a/ext/FileHandle/FileHandle.pm +++ b/ext/FileHandle/FileHandle.pm @@ -147,8 +147,7 @@ It will also croak() if accidentally called in a scalar context. =head1 SEE ALSO L<perlfunc>, -L<perlop/"I/O Operators">, -L<POSIX/"FileHandle"> +L<perlop/"I/O Operators">. =head1 BUGS @@ -169,6 +168,8 @@ require Exporter; require DynaLoader; @ISA = qw(Exporter DynaLoader); +require IO::Handle; # Kludge for bareword handles + $VERSION = "1.00" ; @EXPORT = qw(_IOFBF _IOLBF _IONBF); |