summaryrefslogtreecommitdiff
path: root/makedef.pl
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2011-07-18 12:31:42 +0200
committerNicholas Clark <nick@ccl4.org>2011-08-01 11:53:49 +0200
commit918a61c764f12d63d7778bc630c6fd106b03253c (patch)
tree9696020f0fcbf2ff8e81a63f867ab3129d8ffe3c /makedef.pl
parentf2921293911cd9923a9f19fa47b8be73df28701a (diff)
downloadperl-918a61c764f12d63d7778bc630c6fd106b03253c.tar.gz
In makedef.pl, extract SPRINTF_RETURNS_STRLEN from config.h
This allows its removal from platform specific skip lists.
Diffstat (limited to 'makedef.pl')
-rw-r--r--makedef.pl5
1 files changed, 1 insertions, 4 deletions
diff --git a/makedef.pl b/makedef.pl
index 4638201ae8..65318ba135 100644
--- a/makedef.pl
+++ b/makedef.pl
@@ -136,6 +136,7 @@ if ($PLATFORM eq 'win32' || $PLATFORM eq 'wince') {
open(CFG,$config_h) || die "Cannot open $config_h: $!\n";
while (<CFG>) {
$define{$1} = 1 if /^\s*\#\s*define\s+(MYMALLOC|MULTIPLICITY
+ |SPRINTF_RETURNS_STRLEN
|(?:PERL|USE|HAS)_\w+)\b/x;
}
close(CFG);
@@ -304,7 +305,6 @@ if ($PLATFORM eq 'win32') {
Perl_getenv_len
Perl_my_pclose
Perl_my_popen
- Perl_my_sprintf
)];
}
elsif ($PLATFORM ne 'vms') {
@@ -368,7 +368,6 @@ if ($PLATFORM eq 'wince') {
Perl_getenv_len
Perl_my_pclose
Perl_my_popen
- Perl_my_sprintf
)];
}
elsif ($PLATFORM eq 'aix') {
@@ -383,7 +382,6 @@ elsif ($PLATFORM eq 'aix') {
Perl_sys_intern_clear
Perl_sys_intern_dup
Perl_sys_intern_init
- Perl_my_sprintf
PL_statusvalue_vms
PL_sys_intern
)]);
@@ -617,7 +615,6 @@ elsif ($PLATFORM eq 'vms') {
)]);
skip_symbols([qw(
PL_statusvalue_posix
- Perl_my_sprintf
)]);
skip_symbols([qw(
Perl_signbit