[inseparable changes from match from perl-5.003_97g to perl-5.003_97h]

[p5sagit/p5-mst-13.2.git] / win32 / dl_win32.xs

diff --git a/win32/dl_win32.xs b/win32/dl_win32.xs
index 47d06c0..7b227e2 100644 (file)
--- a/win32/dl_win32.xs
+++ b/win32/dl_win32.xs
@@ -36,11 +36,11 @@ dl_private_init()
 static int
 dl_static_linked(char *filename)
 {
-       char **p;
+    char **p;
     for (p = staticlinkmodules; *p;p++) {
-               if (strstr(filename, *p)) return 1;
-               };
-       return 0;
+       if (strstr(filename, *p)) return 1;
+    };
+    return 0;
 }
 
 MODULE = DynaLoader    PACKAGE = DynaLoader
@@ -55,10 +55,10 @@ dl_load_file(filename,flags=0)
     PREINIT:
     CODE:
     DLDEBUG(1,fprintf(stderr,"dl_load_file(%s):\n", filename));
-       if (dl_static_linked(filename) == 0)
-       RETVAL = (void*) LoadLibraryEx(filename, NULL, LOAD_WITH_ALTERED_SEARCH_PATH ) ;
-       else
-               RETVAL = (void*) GetModuleHandle(NULL);
+    if (dl_static_linked(filename) == 0)
+       RETVAL = (void*) LoadLibraryEx(filename, NULL, LOAD_WITH_ALTERED_SEARCH_PATH ) ;
+    else
+       RETVAL = (void*) GetModuleHandle(NULL);
     DLDEBUG(2,fprintf(stderr," libref=%x\n", RETVAL));
     ST(0) = sv_newmortal() ;
     if (RETVAL == NULL)
@@ -73,7 +73,7 @@ dl_find_symbol(libhandle, symbolname)
     char *     symbolname
     CODE:
     DLDEBUG(2,fprintf(stderr,"dl_find_symbol(handle=%x, symbol=%s)\n",
-       libhandle, symbolname));
+                     libhandle, symbolname));
     RETVAL = (void*) GetProcAddress((HINSTANCE) libhandle, symbolname);
     DLDEBUG(2,fprintf(stderr,"  symbolref = %x\n", RETVAL));
     ST(0) = sv_newmortal() ;
@@ -98,8 +98,8 @@ dl_install_xsub(perl_name, symref, filename="$Package")
     char *             filename
     CODE:
     DLDEBUG(2,fprintf(stderr,"dl_install_xsub(name=%s, symref=%x)\n",
-               perl_name, symref));
-    ST(0)=sv_2mortal(newRV((SV*)newXS(perl_name, (void(*)())symref, filename)));
+                     perl_name, symref));
+    ST(0)=sv_2mortal(newRV((SV*)newXS(perl_name, (void(*)(CV*))symref, filename)));
 
 
 char *