while (<$vars>) {
# All symbols have a Perl_ prefix because that's what embed.h sticks
# in front of them. The A?I?S?C? is strictly speaking wrong.
- next unless /\bPERLVAR(A?I?S?C?)\(([IGT])(\w+)/;
+ next unless /\bPERLVAR(A?I?S?C?)\(([IGT]),\s*(\w+)/;
my $var = "PL_$3";
my $symbol = $proc ? &$proc($1,$2,$3) : $var;
# Start with platform specific headers:
if ($ARGS{PLATFORM} =~ /^win(?:32|ce)$/) {
- (my $dll = ($define{PERL_DLL} || "perl515")) =~ s/\.dll$//i;
+ my $dll = $define{PERL_DLL} ? $define{PERL_DLL} =~ s/\.dll$//ir
+ : "perl$Config{api_revision}$Config{api_version}";
print "LIBRARY $dll\n";
# The DESCRIPTION module definition file statement is not supported
# by VC7 onwards.
}
elsif ($ARGS{PLATFORM} eq 'netware') {
if ($ARGS{FILETYPE} eq 'def') {
- print "LIBRARY perl515\n";
+ print "LIBRARY perl$Config{api_revision}$Config{api_version}\n";
print "DESCRIPTION 'Perl interpreter for NetWare'\n";
print "EXPORTS\n";
}