diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-19 05:55:57 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-19 05:55:57 +0000 |
| commit | 43cd9f80c6e9c5cacf082215013c2fd33f686bc9 (patch) | |
| tree | bc9782ab3e209fb7218c6911e577e444511eb670 /makedef.pl | |
| parent | e8e6f333fb70a1ac62ee87237d37336cd6767150 (diff) | |
| download | perl-43cd9f80c6e9c5cacf082215013c2fd33f686bc9.tar.gz | |
win32 nits
p4raw-id: //depot/perl@3703
Diffstat (limited to 'makedef.pl')
| -rw-r--r-- | makedef.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/makedef.pl b/makedef.pl index 99914fccda..50cbcbb00c 100644 --- a/makedef.pl +++ b/makedef.pl @@ -367,7 +367,7 @@ for my $syms (@syms) # variables if ($define{'PERL_OBJECT'}) { - for my $f ($perlvars_h, $ntrpvar_h, $thrdvar_h) { + for my $f ($perlvars_h, $intrpvar_h, $thrdvar_h) { my $glob = readvar($f, sub { "Perl_" . $_[1] . $_[2] . "_ptr" }); emit_symbols $glob; } @@ -395,7 +395,7 @@ sub try_symbol { return if $symbol =~ /^\#/; $symbol =~s/\r//g; chomp($symbol); - next if exists $skip{$symbol}; + return if exists $skip{$symbol}; emit_symbol($symbol); } @@ -412,6 +412,8 @@ Perl_setTHR Perl_thread_create Perl_win32_init RunPerl +GetPerlInterpreter +SetPerlInterpreter win32_errno win32_environ win32_stdin |