diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-07-25 18:07:54 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-08-01 11:53:54 +0200 |
| commit | bf09e1bdfd80fb7c798423e424afade62b25d72f (patch) | |
| tree | 9ede25b9eb2533f8972b20d7f84a9fbe50a02aaf /makedef.pl | |
| parent | 2c84c9190df766f333ce2d136530a799132a4b50 (diff) | |
| download | perl-bf09e1bdfd80fb7c798423e424afade62b25d72f.tar.gz | |
In makedef.pl, move the "oddities from PerlIO" from <DATA> to a data structure.
At one time various categories of symbols were listed after __DATA__.
All others are now dealt with elsewhere, leaving only some PerlIO symbols, at
which point it becomes clearer and terser to move the list to the point in the
code that previously looped over <DATA>.
Diffstat (limited to 'makedef.pl')
| -rw-r--r-- | makedef.pl | 30 |
1 files changed, 13 insertions, 17 deletions
diff --git a/makedef.pl b/makedef.pl index 0a561c4031..9273ca7c7f 100644 --- a/makedef.pl +++ b/makedef.pl @@ -18,8 +18,7 @@ # perlio.sym # perlvars.h # -# plus long lists of function names hard-coded directly in this script and -# in the DATA section. +# plus long lists of function names hard-coded directly in this script. # # Writes the result to STDOUT. # @@ -1001,8 +1000,7 @@ if ($define{'USE_PERLIO'}) { # Also do NOT add abstraction symbols from $perlio_sym # abstraction is done as #define to stdio - # Remaining remnants that _may_ be functions - # are handled in <DATA> + # Remaining remnants that _may_ be functions are handled below. } for my $syms (@syms) { @@ -1054,9 +1052,17 @@ sub try_symbol { emit_symbol($symbol); } -while (<DATA>) { - try_symbol($_); -} +# Oddities from PerlIO +emit_symbols([qw( + PerlIO_binmode + PerlIO_getpos + PerlIO_init + PerlIO_setpos + PerlIO_sprintf + PerlIO_sv_dup + PerlIO_tmpfile + PerlIO_vsprintf + )]); if ($PLATFORM eq 'win32') { try_symbol($_) foreach qw( @@ -1465,13 +1471,3 @@ sub output_symbol { } 1; -__DATA__ -# Oddities from PerlIO -PerlIO_binmode -PerlIO_getpos -PerlIO_init -PerlIO_setpos -PerlIO_sprintf -PerlIO_sv_dup -PerlIO_tmpfile -PerlIO_vsprintf |