mirror of
https://github.com/samba-team/samba.git
synced 2025-08-03 04:22:09 +03:00
r8275: possibly a more portable way to export symbols in perl?
(This used to be commit d5153d16e1
)
This commit is contained in:
committed by
Gerald (Jerry) Carter
parent
514ce32a89
commit
1e5b309b4f
@ -7,8 +7,9 @@
|
|||||||
|
|
||||||
package Parse::Pidl::NDR;
|
package Parse::Pidl::NDR;
|
||||||
|
|
||||||
use Exporter 'import';
|
require Exporter;
|
||||||
@EXPORT_OK = qw(GetPrevLevel GetNextLevel);
|
@ISA = qw(Exporter);
|
||||||
|
@EXPORT = qw(GetPrevLevel GetNextLevel);
|
||||||
|
|
||||||
use strict;
|
use strict;
|
||||||
use Parse::Pidl::Typelist qw(hasType getType);
|
use Parse::Pidl::Typelist qw(hasType getType);
|
||||||
|
@ -5,8 +5,9 @@
|
|||||||
|
|
||||||
package Parse::Pidl::Typelist;
|
package Parse::Pidl::Typelist;
|
||||||
|
|
||||||
use Exporter 'import';
|
require Exporter;
|
||||||
@EXPORT_OK = qw(hasType getType);
|
@ISA = qw(Exporter);
|
||||||
|
@EXPORT = qw(hasType getType);
|
||||||
|
|
||||||
use Parse::Pidl::Util qw(has_property);
|
use Parse::Pidl::Util qw(has_property);
|
||||||
use strict;
|
use strict;
|
||||||
|
@ -4,8 +4,9 @@
|
|||||||
# released under the GNU GPL
|
# released under the GNU GPL
|
||||||
package Parse::Pidl::Util;
|
package Parse::Pidl::Util;
|
||||||
|
|
||||||
use Exporter 'import';
|
require Exporter;
|
||||||
@EXPORT_OK = qw(has_property property_matches ParseExpr);
|
@ISA = qw(Exporter);
|
||||||
|
@EXPORT = qw(has_property property_matches ParseExpr);
|
||||||
|
|
||||||
use strict;
|
use strict;
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user