19 lines
304 B
Perl
19 lines
304 B
Perl
|
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__
|