The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
package inc::Config::AutoConf::LMU;

use strict;
use warnings;

use Config::AutoConf '0.315';

use base qw(Config::AutoConf);

sub _check_pureperl_required
{
    my $self = shift->_get_instance;
    foreach (@{$self->{_argv}})
    {
        /^-pm/ and warn "-pm is depreciated, please use PUREPERL_ONLY=1" and return 1;
        /^-xs/ and warn "-xs is depreciated, building XS is default anyway" and return !($self->{_force_xs} = 1);
    }
    return $self->SUPER::_check_pureperl_required(@_);
}

sub check_produce_xs_build
{
    my $self = shift->_get_instance;
    my $xs   = $self->SUPER::check_produce_xs_build(@_);
    $self->{_force_xs} and !$xs and $self->msg_error("XS forced but can't compile - giving up");
    return $xs;
}

1;