diff options
| author | Aaron Crane <arc@cpan.org> | 2017-10-13 10:03:59 +0200 |
|---|---|---|
| committer | Aaron Crane <arc@cpan.org> | 2017-10-21 16:52:44 +0100 |
| commit | f1519f70705b2eee563b9ac4056d4eb39d383ea1 (patch) | |
| tree | 99be297bc99adf835bdb6832add4fbf24992a766 /makedef.pl | |
| parent | 03f3961765f87fb8bccb4e3fa5b9e2e533d7dc30 (diff) | |
| download | perl-f1519f70705b2eee563b9ac4056d4eb39d383ea1.tar.gz | |
Rely on C89 sprintf() return value semantics
Diffstat (limited to 'makedef.pl')
| -rw-r--r-- | makedef.pl | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/makedef.pl b/makedef.pl index 2af197fa43..5f05c85f3b 100644 --- a/makedef.pl +++ b/makedef.pl @@ -108,7 +108,6 @@ my $config_h = 'config.h'; 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 |KILL_BY_SIGPRC |(?:PERL|USE|HAS)_\w+)\b/x; } @@ -465,10 +464,6 @@ unless ($define{'PERL_DONT_CREATE_GVSV'}) { ++$skip{Perl_gv_SVadd}; } -if ($define{'SPRINTF_RETURNS_STRLEN'}) { - ++$skip{Perl_my_sprintf}; -} - unless ($define{'PERL_USES_PL_PIDSTATUS'}) { ++$skip{PL_pidstatus}; } |