tweak C++isms

p4raw-id: //depot/perl@3510

diff --git a/win32/dl_win32.xs b/win32/dl_win32.xs
index 8a91973..6c1b424 100644 (file)
--- 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 (file)
--- 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";