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