From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 19 Jul 1999 05:55:57 +0000 (+0000)
Subject: win32 nits
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=43cd9f80c6e9c5cacf082215013c2fd33f686bc9;p=p5sagit%2Fp5-mst-13.2.git

win32 nits

p4raw-id: //depot/perl@3703
---

diff --git a/makedef.pl b/makedef.pl
index 99914fc..50cbcbb 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
diff --git a/sv.h b/sv.h
index 5787da3..4ba33ed 100644
--- 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