use TEST for minitest, same as POSIX systems

[perl5.git] / win32 / win32.c

diff --git a/win32/win32.c b/win32/win32.c
index d388975..1510805 100644 (file)
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -3247,7 +3247,6 @@ win32_chsize(int fd, Off_t size)
            retval = -1;
        }
     }
-finish:
     win32_lseek(fd, cur, SEEK_SET);
     return retval;
 #else
@@ -4188,7 +4187,7 @@ XS(w32_SetChildShowWindow)
     unsigned short showwindow = w32_showwindow;
 
     if (items > 1)
-       Perl_croak(aTHX_ "usage: Win32::SetChildShowWindow($showwindow)");
+       croak_xs_usage(cv, "[showwindow]");
 
     if (items == 0 || !SvOK(ST(0)))
         w32_use_showwindow = FALSE;