|
Last change
on this file since 99443 was 99366, checked in by vboxsync, 22 months ago |
|
openssl-3.1.0: Applied and adjusted our OpenSSL changes to 3.0.7. bugref:10418
|
|
File size:
304 bytes
|
| Line | |
|---|
| 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__
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
