new pm_to_blib syntax in perl 5.42

This commit is contained in:
Ailin Nemui 2025-07-13 19:41:36 +02:00
commit 6395b93cc8

View file

@ -22,7 +22,7 @@ my $verb = $AM_DEFAULT_VERBOSITY;
}
sub pm_to_blib {
my $ret = shift->SUPER::pm_to_blib(@_);
$ret =~ s{^(\t(?:- ?)?)(?:\$\(NOECHO\) ?)?(.*-e ['"]pm_to_blib(.*\\\n)*.*)$}{$1\$(PL_AM_V_BLIB)$2\$(PL_AM_V_BLIB_Hide)}mg;
$ret =~ s{^(\t(?:- ?)?)(?:\$\(NOECHO\) ?)?((?:\\\r?\n|.)*-e ['"]pm_to_blib(.*\\\n)*.*)$}{$1\$(PL_AM_V_BLIB)$2\$(PL_AM_V_BLIB_Hide)}mg;
$ret
}
sub post_constants {