You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 lines
304 B
19 lines
304 B
package platform;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use vars qw(@ISA);
|
|
|
|
# Callers must make sure @INC has the build directory
|
|
use configdata;
|
|
|
|
my $module = $target{perl_platform} || 'Unix';
|
|
(my $module_path = $module) =~ s|::|/|g;
|
|
|
|
require "platform/$module_path.pm";
|
|
@ISA = ("platform::$module");
|
|
|
|
1;
|
|
|
|
__END__
|