-my @PLATFORM = qw(aix win32 wince os2 netware);
-my %PLATFORM;
-@PLATFORM{@PLATFORM} = ();
-
-defined $PLATFORM || die "PLATFORM undefined, must be one of: @PLATFORM\n";
-exists $PLATFORM{$PLATFORM} || die "PLATFORM must be one of: @PLATFORM\n";
-
-if ($PLATFORM eq 'win32' or $PLATFORM eq 'wince' or $PLATFORM eq "aix") {
- # Add the compile-time options that miniperl was built with to %define.
- # On Win32 these are not the same options as perl itself will be built
- # with since miniperl is built with a canned config (one of the win32/
- # config_H.*) and none of the BUILDOPT's that are set in the makefiles,
- # but they do include some #define's that are hard-coded in various
- # source files and header files and don't include any BUILDOPT's that
- # the user might have chosen to disable because the canned configs are
- # minimal configs that don't include any of those options.
- my $opts = ($PLATFORM eq 'wince' ? '-MCross' : ''); # for wince need Cross.pm to get Config.pm
-
- $ENV{PERL5LIB} = join $Config{path_sep}, @INC;
- my $cmd = "$^X $opts -V";
- my $config = `$cmd`
- or die "Couldn't run [$cmd]: $!";
- my($options) = $config =~ /^ Compile-time options: (.*?)\n^ \S/ms;
- $options =~ s/\s+/ /g;
- print STDERR "Options: ($options)\n";
- foreach (split /\s+/, $options) {
- $define{$_} = 1;
- }
+require "$ARGS{TARG_DIR}regen/embed_lib.pl";
+
+{
+ my @PLATFORM = qw(aix win32 wince os2 netware vms test);
+ my %PLATFORM;
+ @PLATFORM{@PLATFORM} = ();
+
+ die "PLATFORM undefined, must be one of: @PLATFORM\n"
+ unless defined $ARGS{PLATFORM};
+ die "PLATFORM must be one of: @PLATFORM\n"
+ unless exists $PLATFORM{$ARGS{PLATFORM}};