PL_ scheme Builds under Minw32 - some SEGFAULT snags

[p5sagit/p5-mst-13.2.git] / util.c

diff --git a/util.c b/util.c
index 19487d3..2a140ee 100644 (file)
--- a/util.c
+++ b/util.c
@@ -2477,7 +2477,7 @@ find_script(char *scriptname, bool dosearch, char **search_ext, I32 flags)
 #endif
            DEBUG_p(PerlIO_printf(Perl_debug_log,
                                  "Looking for %s\n",cur));
-           if (PerlLIO_stat(cur,&statbuf) >= 0) {
+           if (PerlLIO_stat(cur,&PL_statbuf) >= 0) {
                dosearch = 0;
                scriptname = cur;
 #ifdef SEARCH_EXTS