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