diff options
Diffstat (limited to 'os2/OS2/PrfDB')
| -rw-r--r-- | os2/OS2/PrfDB/Changes | 1 | ||||
| -rw-r--r-- | os2/OS2/PrfDB/PrfDB.pm | 26 |
2 files changed, 13 insertions, 14 deletions
diff --git a/os2/OS2/PrfDB/Changes b/os2/OS2/PrfDB/Changes index 3e8bf3f580..49ac8c1a43 100644 --- a/os2/OS2/PrfDB/Changes +++ b/os2/OS2/PrfDB/Changes @@ -3,3 +3,4 @@ Revision history for Perl extension OS2::PrfDB. 0.01 Tue Mar 26 19:35:27 1996 - original version; created by h2xs 1.16 0.02: Field do-not-close added to OS2::Prf::Hini. +0.03: Update to XSLoader and 'our'. diff --git a/os2/OS2/PrfDB/PrfDB.pm b/os2/OS2/PrfDB/PrfDB.pm index 41d7dba2f1..328f4dcd5d 100644 --- a/os2/OS2/PrfDB/PrfDB.pm +++ b/os2/OS2/PrfDB/PrfDB.pm @@ -1,21 +1,22 @@ package OS2::PrfDB; use strict; -use vars qw($VERSION @ISA @EXPORT); require Exporter; -require DynaLoader; +use XSLoader; +use Tie::Hash; -@ISA = qw(Exporter DynaLoader); +our $debug; +our @ISA = qw(Exporter Tie::Hash); # Items to export into callers namespace by default. Note: do not export # names by default without a very good reason. Use EXPORT_OK instead. # Do not simply export all your public functions/methods/constants. -@EXPORT = qw( - AnyIni UserIni SystemIni - ); -$VERSION = '0.02'; +our @EXPORT = qw( + AnyIni UserIni SystemIni + ); +our $VERSION = '0.03'; -bootstrap OS2::PrfDB $VERSION; +XSLoader::load 'OS2::PrfDB', $VERSION; # Preloaded methods go here. @@ -32,10 +33,6 @@ sub SystemIni { new_from_int OS2::PrfDB::Hini OS2::Prf::System(2),'System settings database',1; } -use vars qw{$debug @ISA}; -use Tie::Hash; -push @ISA, qw{Tie::Hash}; - # Internal structure 0 => HINI, 1 => array of entries, 2 => iterator. sub TIEHASH { @@ -127,9 +124,10 @@ sub DESTROY { } package OS2::PrfDB::Sub; -use vars qw{$debug @ISA}; use Tie::Hash; -@ISA = qw{Tie::Hash}; + +our $debug; +our @ISA = qw{Tie::Hash}; # Internal structure 0 => HINI, 1 => array of entries, 2 => iterator, # 3 => appname. |