This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
win32 nits
authorGurusamy Sarathy <gsar@cpan.org>
Mon, 19 Jul 1999 05:55:57 +0000 (05:55 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Mon, 19 Jul 1999 05:55:57 +0000 (05:55 +0000)
p4raw-id: //depot/perl@3703

makedef.pl
sv.h

index 99914fc..50cbcbb 100644 (file)
@@ -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
diff --git a/sv.h b/sv.h
index 5787da3..4ba33ed 100644 (file)
--- a/sv.h
+++ b/sv.h
@@ -692,7 +692,7 @@ struct xpvio {
 
 #define isGV(sv) (SvTYPE(sv) == SVt_PVGV)
 
-#ifndef DOSISH
+#if !defined(DOSISH) || defined(WIN32)
 #  define SvGROW(sv,len) (SvLEN(sv) < (len) ? sv_grow(sv,len) : SvPVX(sv))
 #  define Sv_Grow sv_grow
 #else