The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

use File::Copy qw();
if (-f "Normalize.xsX") {
print STDERR "Enabling XS in sources...\n";
die "***** Failed, sources could be inconsistent! *****\n"
unless File::Copy::move('MANIFEST', 'MANIFEST.N')
and File::Copy::move('MANIFEST.X', 'MANIFEST')
and File::Copy::move('Normalize.pm', 'Normalize.pmN')
and File::Copy::move('Normalize.xsX', 'Normalize.xs')
and File::Copy::move('Normalize.pmX', 'Normalize.pm');
}