From 1e5b309b4fc15dcc48007d856a954a2bea08b380 Mon Sep 17 00:00:00 2001
From: Andrew Tridgell <tridge@samba.org>
Date: Sun, 10 Jul 2005 01:43:10 +0000
Subject: r8275: possibly a more portable way to export symbols in perl? (This
 used to be commit d5153d16e1630e85c05a19b2d279bb1100497be5)

---
 source4/build/pidl/Parse/Pidl/NDR.pm      | 5 +++--
 source4/build/pidl/Parse/Pidl/Typelist.pm | 5 +++--
 source4/build/pidl/Parse/Pidl/Util.pm     | 5 +++--
 3 files changed, 9 insertions(+), 6 deletions(-)

(limited to 'source4')

diff --git a/source4/build/pidl/Parse/Pidl/NDR.pm b/source4/build/pidl/Parse/Pidl/NDR.pm
index 1ab17e014b..e039934b1b 100644
--- 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 f107dfdd82..60b6e7905b 100644
--- 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 5e9544d40b..e4f25511e6 100644
--- 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;
 
-- 
cgit