The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
Changes 08
Inline_build/Inline.pm.in 02
META.yml 11
Pure_build/Pure.tmpl 02
lib/File/FcntlLock/Core.pm 111
lib/File/FcntlLock/XS.pm 02
lib/File/FcntlLock.pm 113
7 files changed (This is a version diff) 339
@@ -1,5 +1,13 @@
 Revision history for Perl extension File::FcntlLock
 
+0.22  Thu July 31 2014
+	- Exports still didn't work from the XS, Pure and Inline modules,
+	  hopefully fixed.
+
+0.21  Thu July 31 2014
+	- Missing @EXPORT of constants fixed with patch supplied by
+	  Raphaƫl Hertzog <hertzog@debian.org> (thank you;-)
+
 0.20  Tue May 27 2014
     - Problem on GNU Hurd hopefully fixed and some cosmetic changes.
 
@@ -24,6 +24,8 @@ use base qw( File::FcntlLock::Core );
 
 our $VERSION = File::FcntlLock::Core->VERSION;
 
+our @EXPORT = @File::FcntlLock::Core::EXPORT;
+
 
 my ( $packstr, @member_list );
 
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               File-FcntlLock
-version:            0.20
+version:            0.22
 abstract:           File locking with L<fcntl(2)>
 author:
     - Jens Thoms Toerring jt@toerring.de
@@ -20,6 +20,8 @@ use base qw( File::FcntlLock::Core );
 
 our $VERSION = File::FcntlLock::Core->VERSION;
 
+our @EXPORT = @File::FcntlLock::Core::EXPORT;
+
 
 ###########################################################
 # Function for doing the actual fcntl() call: assembles the binary
@@ -18,7 +18,7 @@ use Carp;
 use base qw( File::FcntlLock::Errors Exporter );
 
 
-our $VERSION = '0.20';
+our $VERSION = '0.22';
 
 
 # Items to export into callers namespace by default.
@@ -29,6 +29,16 @@ our @EXPORT = qw( F_GETLK F_SETLK F_SETLKW
 
 
 ###########################################################
+#
+# Make our exports exportable by child classes
+
+sub import
+{
+    File::FcntlLock::Core->export_to_level( 1, @_ );
+}
+
+
+###########################################################
 # Method for creating the object
 
 sub new {
@@ -17,6 +17,8 @@ use base qw( File::FcntlLock );
 
 our $VERSION = File::FcntlLock->VERSION;
 
+our @EXPORT = @File::FcntlLock::EXPORT;
+
 
 1;
 
@@ -17,11 +17,23 @@ use Carp;
 use base qw( File::FcntlLock::Core DynaLoader );
 
 
-our $VERSION = '0.20';
+our $VERSION = '0.22';
 
 
 bootstrap File::FcntlLock $VERSION;
 
+our @EXPORT = @File::FcntlLock::Core::EXPORT;
+
+
+###########################################################
+#
+# Make our exports exportable by child classes
+
+sub import
+{
+    File::FcntlLock->export_to_level( 1, @_ );
+}
+
 
 ###########################################################
 #