[thirdparty/openssl.git] / Configurations / platform.pm

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__
Commit	Line	Data
d7e4932e RL	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__