From: Chip Salzenberg <chip@atlantic.net>
Date: Thu, 5 Dec 1996 11:01:42 +0000 (+1200)
Subject: Make IO::File::import use its parameters
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1bea6b6d9d08dd7041bf33b4409b008096b11e05;p=p5sagit%2Fp5-mst-13.2.git

Make IO::File::import use its parameters
---

diff --git a/ext/IO/lib/IO/File.pm b/ext/IO/lib/IO/File.pm
index 9b3025f..81d48b1 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_/';
     };
-};
+}
 
 
 ################################################