1package platform; 2 3use strict; 4use warnings; 5use vars qw(@ISA); 6 7# Callers must make sure @INC has the build directory 8use configdata; 9 10my $module = $target{perl_platform} || 'Unix'; 11(my $module_path = $module) =~ s|::|/|g; 12 13require "platform/$module_path.pm"; 14@ISA = ("platform::$module"); 15 161; 17 18__END__ 19