summaryrefslogtreecommitdiff
path: root/ext/Fcntl
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2010-10-14 21:44:08 +0100
committerNicholas Clark <nick@ccl4.org>2010-10-14 22:00:15 +0100
commitda4061d33235769184e98cc28663a2dd54302fa8 (patch)
tree4570cbd426a13abb0bef561ba7ed9141c616317d /ext/Fcntl
parent1d2b7ec55763d41a18a61d1b44aedd531d305ad3 (diff)
downloadperl-da4061d33235769184e98cc28663a2dd54302fa8.tar.gz
Convert modules in ext/ to pass minimal arguments to XSLoader::load().
Diffstat (limited to 'ext/Fcntl')
-rw-r--r--ext/Fcntl/Fcntl.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/Fcntl/Fcntl.pm b/ext/Fcntl/Fcntl.pm
index 83edeb60d8..e173c34785 100644
--- a/ext/Fcntl/Fcntl.pm
+++ b/ext/Fcntl/Fcntl.pm
@@ -59,10 +59,9 @@ use strict;
our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $AUTOLOAD);
require Exporter;
-use XSLoader ();
@ISA = qw(Exporter);
BEGIN {
- $VERSION = "1.06";
+ $VERSION = "1.07";
}
# Items to export into callers namespace by default
@@ -212,7 +211,8 @@ BEGIN {
# Force the constants to become inlined
BEGIN {
- XSLoader::load 'Fcntl', $VERSION;
+ require XSLoader;
+ XSLoader::load();
}
sub S_IFMT { @_ ? ( $_[0] & _S_IFMT() ) : _S_IFMT() }