#!perl
use File::Copy ();

if (-f "String.xsX") {
    print STDERR "Enabling XSUB in sources...\n";

    die "***** Failed, sources could be inconsistent! *****\n"
    unless  File::Copy::move('MANIFEST',	'MANIFEST.NXS')
	and File::Copy::move('MANIFEST.XS',	'MANIFEST')
	and File::Copy::move('String.pm',	'String.pmN')
	and File::Copy::move('String.xsX',	'String.xs')
	and File::Copy::move('String.pmX',	'String.pm');
}

1;
__END__