diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1999-11-15 20:50:31 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-03 04:47:03 +0000 |
| commit | 9426adcd48655815b65cea5a9f1eebbe7e23a9df (patch) | |
| tree | d9707481a6d1bd26c1d688da99bbd3b0273c0aaa /ext/Devel | |
| parent | 34baa6c30415f54e9b8c2e622de1e229cf36d781 (diff) | |
| download | perl-9426adcd48655815b65cea5a9f1eebbe7e23a9df.tar.gz | |
applied suggested patch; removed $VERSION = $VERSION hack
(change#4043 fixed the need for that)
Message-Id: <199911160650.BAA18874@monk.mps.ohio-state.edu>
Subject: [PATCH 5.005_62] XSLoader.pm
p4raw-link: @4043 on //depot/cfgperl: 09bef84370e90d727656ea11ba5ee8be80e361d3
p4raw-id: //depot/perl@4623
Diffstat (limited to 'ext/Devel')
| -rw-r--r-- | ext/Devel/DProf/DProf.pm | 6 | ||||
| -rw-r--r-- | ext/Devel/Peek/Peek.pm | 8 |
2 files changed, 7 insertions, 7 deletions
diff --git a/ext/Devel/DProf/DProf.pm b/ext/Devel/DProf/DProf.pm index 4c43f4d3d5..689692909f 100644 --- a/ext/Devel/DProf/DProf.pm +++ b/ext/Devel/DProf/DProf.pm @@ -182,11 +182,11 @@ sub DB { # print "nonXS DBDB\n"; } -require DynaLoader; -@Devel::DProf::ISA = 'DynaLoader'; +use XSLoader (); + $Devel::DProf::VERSION = '19990108'; # this version not authorized by # Dean Roehrich. See "Changes" file. -bootstrap Devel::DProf $Devel::DProf::VERSION; +XSLoader::load 'Devel::DProf', $Devel::DProf::VERSION; 1; diff --git a/ext/Devel/Peek/Peek.pm b/ext/Devel/Peek/Peek.pm index 2e990b0a3a..4b472ad8a8 100644 --- a/ext/Devel/Peek/Peek.pm +++ b/ext/Devel/Peek/Peek.pm @@ -3,17 +3,17 @@ package Devel::Peek; -$VERSION = $VERSION = 0.95; +$VERSION = 0.95; require Exporter; -require DynaLoader; +use XSLoader (); -@ISA = qw(Exporter DynaLoader); +@ISA = qw(Exporter); @EXPORT = qw(Dump mstat DeadCode DumpArray DumpWithOP DumpProg); @EXPORT_OK = qw(SvREFCNT SvREFCNT_inc SvREFCNT_dec); %EXPORT_TAGS = ('ALL' => [@EXPORT, @EXPORT_OK]); -bootstrap Devel::Peek; +XSLoader::load 'Devel::Peek'; sub DumpWithOP ($;$) { local($Devel::Peek::dump_ops)=1; |