Replace repetitive code in lib/File/stat.t with a data driven loop.

[perl5.git] / ext / DynaLoader / dl_win32.xs

diff --git a/ext/DynaLoader/dl_win32.xs b/ext/DynaLoader/dl_win32.xs
index 60ec703..94b3fe3 100644 (file)
--- a/ext/DynaLoader/dl_win32.xs
+++ b/ext/DynaLoader/dl_win32.xs
@@ -72,6 +72,10 @@ dl_static_linked(char *filename)
     static char subStr[] = "/auto/";
     char szBuffer[MAX_PATH];
 
+    /* avoid buffer overflow when called with invalid filenames */
+    if (strlen(filename) >= sizeof(szBuffer))
+        return 0;
+
     /* change all the '\\' to '/' */
     strcpy(szBuffer, filename);
     for(ptr = szBuffer; ptr = strchr(ptr, '\\'); ++ptr)