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