platform.pm 304 B

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