p4raw-id: //depot/perl@26804
32 files changed:
sub import {
require Exporter;
sub import {
require Exporter;
sub AUTOLOAD {
my($constname);
sub AUTOLOAD {
my($constname);
use XSLoader ();
our @ISA = qw(Tie::Hash);
use XSLoader ();
our @ISA = qw(Tie::Hash);
XSLoader::load 'NDBM_File', $VERSION;
XSLoader::load 'NDBM_File', $VERSION;
use XSLoader ();
our @ISA = qw(Tie::Hash);
use XSLoader ();
our @ISA = qw(Tie::Hash);
XSLoader::load 'ODBM_File', $VERSION;
XSLoader::load 'ODBM_File', $VERSION;
our($VERSION, $XS_VERSION, @ISA, @EXPORT_OK);
our($VERSION, $XS_VERSION, @ISA, @EXPORT_OK);
$XS_VERSION = "1.03";
use Carp;
$XS_VERSION = "1.03";
use Carp;
use Opcode qw(opmask_add opset invert_opset);
use Opcode qw(opmask_add opset invert_opset);
use XSLoader ();
our @ISA = qw(Tie::Hash);
use XSLoader ();
our @ISA = qw(Tie::Hash);
XSLoader::load 'SDBM_File', $VERSION;
XSLoader::load 'SDBM_File', $VERSION;
use vars qw/ $VERSION @EXPORT /;
use vars qw/ $VERSION @EXPORT /;
package attrs;
use XSLoader ();
package attrs;
use XSLoader ();
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(share cond_wait cond_timedwait cond_broadcast cond_signal);
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(share cond_wait cond_timedwait cond_broadcast cond_signal);
if ($threads::threads) {
*cond_wait = \&cond_wait_enabled;
if ($threads::threads) {
*cond_wait = \&cond_wait_enabled;
$DB::subname = ''; # currently executing sub (fullly qualified name)
$DB::lineno = ''; # current line number
$DB::subname = ''; # currently executing sub (fullly qualified name)
$DB::lineno = ''; # current line number
- $DB::VERSION = $DB::VERSION = '1.0';
+ $DB::VERSION = $DB::VERSION = '1.01';
# initialize private globals to avoid warnings
# initialize private globals to avoid warnings
use 5.006_001; # for (defined ref) and $#$v and our
package Dumpvalue;
use strict;
use 5.006_001; # for (defined ref) and $#$v and our
package Dumpvalue;
use strict;
our(%address, $stab, @stab, %stab, %subs);
# documentation nits, handle complex data structures better by chromatic
our(%address, $stab, @stab, %stab, %subs);
# documentation nits, handle complex data structures better by chromatic
require Exporter;
@ISA = (Exporter);
require Exporter;
@ISA = (Exporter);
# package has not yet been updated to work with Perl 5.004, and so it
# would be a Bad Thing for the CPAN module to grab it and replace this
# module. Therefore, we set this module's version higher than 2.0.
# package has not yet been updated to work with Perl 5.004, and so it
# would be a Bad Thing for the CPAN module to grab it and replace this
# module. Therefore, we set this module's version higher than 2.0.
require Exporter;
@ISA = qw(Exporter);
require Exporter;
@ISA = qw(Exporter);
require Exporter;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
require Exporter;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
@ISA = qw(Exporter);
@EXPORT = qw(pod2html htmlify);
@EXPORT_OK = qw(anchorify);
@ISA = qw(Exporter);
@EXPORT = qw(pod2html htmlify);
@EXPORT_OK = qw(anchorify);
package Term::ReadLine; # So late to allow the above code be defined?
package Term::ReadLine; # So late to allow the above code be defined?
my ($which) = exists $ENV{PERL_RL} ? split /\s+/, $ENV{PERL_RL} : undef;
if ($which) {
my ($which) = exists $ENV{PERL_RL} ? split /\s+/, $ENV{PERL_RL} : undef;
if ($which) {
use strict;
use warnings;
use strict;
use warnings;
use strict;
use 5.006_001;
use strict;
use 5.006_001;
our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
BEGIN {
use Exporter ();
our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
BEGIN {
use Exporter ();
use File::Spec;
use vars qw($VERSION $Verbose);
use File::Spec;
use vars qw($VERSION $Verbose);
use Carp;
$Carp::Internal{__PACKAGE__.""}++;
use Carp;
$Carp::Internal{__PACKAGE__.""}++;
our $DEBUG;
our $VERBOSE;
our $PRETTY;
our $DEBUG;
our $VERBOSE;
our $PRETTY;
$overload::hint_bits = 0x20000; # HINT_LOCALIZE_HH
$overload::hint_bits = 0x20000; # HINT_LOCALIZE_HH
package warnings::register;
package warnings::register;
our @EXPORT = qw(
AnyIni UserIni SystemIni
);
our @EXPORT = qw(
AnyIni UserIni SystemIni
);
XSLoader::load 'OS2::PrfDB', $VERSION;
XSLoader::load 'OS2::PrfDB', $VERSION;
#require AutoLoader;
our @ISA = qw(Exporter);
#require AutoLoader;
our @ISA = qw(Exporter);
XSLoader::load('OS2::Process', $VERSION);
}
XSLoader::load('OS2::Process', $VERSION);
}
# Other items we are prepared to export if requested
@EXPORT_OK = qw(drop register);
# Other items we are prepared to export if requested
@EXPORT_OK = qw(drop register);
# We cannot just put OS2::DLL in @ISA, since some scripts would use
# function interface, not method interface...
# We cannot just put OS2::DLL in @ISA, since some scripts would use
# function interface, not method interface...
BEGIN {
push @INC, './lib';
BEGIN {
push @INC, './lib';