From 8b0a8e232dc4082660ea8daef713e88b9295b2be Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Fri, 8 Jul 2011 03:13:56 -0500 Subject: allow optionally using the pure-perl implementation --- lib/smartmatch/engine/core.pm | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) (limited to 'lib') diff --git a/lib/smartmatch/engine/core.pm b/lib/smartmatch/engine/core.pm index 948152f..60c546b 100644 --- a/lib/smartmatch/engine/core.pm +++ b/lib/smartmatch/engine/core.pm @@ -8,15 +8,17 @@ use parent 'DynaLoader'; sub dl_load_flags { 0x01 } -__PACKAGE__->bootstrap( - # we need to be careful not to touch $VERSION at compile time, otherwise - # DynaLoader will assume it's set and check against it, which will cause - # fail when being run in the checkout without dzil having set the actual - # $VERSION - exists $smartmatch::engine::core::{VERSION} - ? ${ $smartmatch::engine::core::{VERSION} } : (), -); -smartmatch::engine::core::init(__PACKAGE__->can('match')); +if (!$smartmatch::engine::core::USE_PP) { + __PACKAGE__->bootstrap( + # we need to be careful not to touch $VERSION at compile time, + # otherwise DynaLoader will assume it's set and check against it, which + # will cause fail when being run in the checkout without dzil having + # set the actual $VERSION + exists $smartmatch::engine::core::{VERSION} + ? ${ $smartmatch::engine::core::{VERSION} } : (), + ); + smartmatch::engine::core::init(__PACKAGE__->can('match')); +} use B; use Carp qw(croak); -- cgit v1.2.3-54-g00ecf