r8275: possibly a more portable way to export symbols in perl?

(This used to be commit d5153d16e1630e85c05a19b2d279bb1100497be5)

diff --git a/source4/build/pidl/Parse/Pidl/NDR.pm b/source4/build/pidl/Parse/Pidl/NDR.pm
index 1ab17e014b1c1298be9d8be95ea5694c365f473c..e039934b1b8a8c4e72805309b197102e0b50abaf 100644 (file)
--- a/source4/build/pidl/Parse/Pidl/NDR.pm
+++ b/source4/build/pidl/Parse/Pidl/NDR.pm
@@ -7,8 +7,9 @@
 
 package Parse::Pidl::NDR;
 
-use Exporter 'import';
-@EXPORT_OK = qw(GetPrevLevel GetNextLevel);
+require Exporter;
+@ISA = qw(Exporter);
+@EXPORT = qw(GetPrevLevel GetNextLevel);
 
 use strict;
 use Parse::Pidl::Typelist qw(hasType getType);

diff --git a/source4/build/pidl/Parse/Pidl/Typelist.pm b/source4/build/pidl/Parse/Pidl/Typelist.pm
index f107dfdd82d8df5236e6b148f2240777647c1bab..60b6e7905b51bcb3b7cb4c035acf44c67a153f7b 100644 (file)
--- a/source4/build/pidl/Parse/Pidl/Typelist.pm
+++ b/source4/build/pidl/Parse/Pidl/Typelist.pm
@@ -5,8 +5,9 @@
 
 package Parse::Pidl::Typelist;
 
-use Exporter 'import';
-@EXPORT_OK = qw(hasType getType);
+require Exporter;
+@ISA = qw(Exporter);
+@EXPORT = qw(hasType getType);
 
 use Parse::Pidl::Util qw(has_property);
 use strict;

diff --git a/source4/build/pidl/Parse/Pidl/Util.pm b/source4/build/pidl/Parse/Pidl/Util.pm
index 5e9544d40bbc5fb5519ce496e31d68c0635629a3..e4f25511e6eb5c56ab278d7facf4f0ce8e267030 100644 (file)
--- a/source4/build/pidl/Parse/Pidl/Util.pm
+++ b/source4/build/pidl/Parse/Pidl/Util.pm
@@ -4,8 +4,9 @@
 # released under the GNU GPL
 package Parse::Pidl::Util;
 
-use Exporter 'import';
-@EXPORT_OK = qw(has_property property_matches ParseExpr);
+require Exporter;
+@ISA = qw(Exporter);
+@EXPORT = qw(has_property property_matches ParseExpr);
 
 use strict;