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