diff options
| author | Chip Salzenberg <chip@atlantic.net> | 1996-12-05 23:01:42 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1996-12-06 18:56:00 +1200 |
| commit | 1bea6b6d9d08dd7041bf33b4409b008096b11e05 (patch) | |
| tree | 89c5b4080fc79969c6f2eea27c12b1e181c86195 | |
| parent | d64ebb597ff9b712db9608699509d5d9dc91f58c (diff) | |
| download | perl-1bea6b6d9d08dd7041bf33b4409b008096b11e05.tar.gz | |
Make IO::File::import use its parameters
| -rw-r--r-- | ext/IO/lib/IO/File.pm | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/ext/IO/lib/IO/File.pm b/ext/IO/lib/IO/File.pm index 9b3025f36d..81d48b1c54 100644 --- a/ext/IO/lib/IO/File.pm +++ b/ext/IO/lib/IO/File.pm @@ -1,5 +1,3 @@ -# - package IO::File; =head1 NAME @@ -103,7 +101,6 @@ require 5.000; use vars qw($VERSION @EXPORT @EXPORT_OK $AUTOLOAD); use Carp; use Symbol; -use English; use SelectSaver; use IO::Handle qw(_open_mode_string); use IO::Seekable; @@ -117,20 +114,20 @@ $VERSION = sprintf("%d.%02d", q$Revision: 1.5 $ =~ /(\d+)\.(\d+)/); @EXPORT = @IO::Seekable::EXPORT; -################################################ -## If the Fcntl extension is available, -## export its constants. -## - sub import { my $pkg = shift; my $callpkg = caller; - Exporter::export $pkg, $callpkg; + Exporter::export $pkg, $callpkg, @_; + + # + # If the Fcntl extension is available, + # export its constants for sysopen(). + # eval { require Fcntl; - Exporter::export 'Fcntl', $callpkg; + Exporter::export 'Fcntl', $callpkg, '/^O_/'; }; -}; +} ################################################ |