From: Steve Peters <steve@fisharerojo.org>
Date: Tue, 9 Aug 2005 06:21:48 +0000 (-0500)
Subject: Fix a couple of random warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cf2782cdafcea0f3c4f95a9125e1a5a110b9dfbc;p=p5sagit%2Fp5-mst-13.2.git

Fix a couple of random warnings
Message-ID: <20050809112148.GA4902@mccoy.peters.homeunix.org>

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

diff --git a/nostdio.h b/nostdio.h
index f51cb20..8aaa950 100644
--- a/nostdio.h
+++ b/nostdio.h
@@ -111,7 +111,7 @@ struct _FILE;
 #define _flsbuf(c,f)  _CANNOT _flsbuf_
 #define fdopen(fd,p)  _CANNOT _fdopen_
 #define fileno(f)  _CANNOT _fileno_
-#if SFIO_VERSION < 20000101L
+#if defined(SFIO_VERSION) && SFIO_VERSION < 20000101L
 #define flockfile(f)  _CANNOT _flockfile_
 #define ftrylockfile(f)  _CANNOT _ftrylockfile_
 #define funlockfile(f)  _CANNOT _funlockfile_
diff --git a/perl.c b/perl.c
index 3ff4a80..188e193 100644
--- a/perl.c
+++ b/perl.c
@@ -2238,8 +2238,10 @@ S_run_body(pTHX_ I32 oldscope)
 
     if (!PL_restartop) {
 	DEBUG_x(dump_all());
+#ifdef DEBUGGING
 	if (!DEBUG_q_TEST)
 	  PERL_DEBUG(PerlIO_printf(Perl_debug_log, "\nEXECUTING...\n\n"));
+#endif
 	DEBUG_S(PerlIO_printf(Perl_debug_log, "main thread is 0x%"UVxf"\n",
 			      PTR2UV(thr)));