From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 31 May 1999 14:11:46 +0000 (+0000)
Subject: tweak C++isms
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b90103851cdee826fc444fcd0d6b862433ec2bab;p=p5sagit%2Fp5-mst-13.2.git

tweak C++isms

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

diff --git a/win32/dl_win32.xs b/win32/dl_win32.xs
index 8a91973..6c1b424 100644
--- a/win32/dl_win32.xs
+++ b/win32/dl_win32.xs
@@ -102,6 +102,7 @@ dl_load_file(filename,flags=0)
     int			flags
     PREINIT:
     CODE:
+  {
     WCHAR wfilename[MAX_PATH];
     DLDEBUG(1,PerlIO_printf(PerlIO_stderr(),"dl_load_file(%s):\n", filename));
     if (dl_static_linked(filename) == 0) {
@@ -122,7 +123,7 @@ dl_load_file(filename,flags=0)
 		  OS_Error_String(PERL_OBJECT_THIS)) ;
     else
 	sv_setiv( ST(0), (IV)RETVAL);
-
+  }
 
 void *
 dl_find_symbol(libhandle, symbolname)
diff --git a/win32/win32.c b/win32/win32.c
index 20aa4ee..3bf6bc6 100644
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -2276,12 +2276,12 @@ win32_open(const char *path, int flag, ...)
 {
     va_list ap;
     int pmode;
+    WCHAR wBuffer[MAX_PATH];
 
     va_start(ap, flag);
     pmode = va_arg(ap, int);
     va_end(ap);
 
-    WCHAR wBuffer[MAX_PATH];
     if (stricmp(path, "/dev/null")==0)
 	path = "NUL";