Check that stat and -X on barewords favour the file handle over the

[p5sagit/p5-mst-13.2.git] / win32 / vmem.h

diff --git a/win32/vmem.h b/win32/vmem.h
index 1373121..25f2376 100644 (file)
--- a/win32/vmem.h
+++ b/win32/vmem.h
@@ -21,7 +21,7 @@
 #ifndef ___VMEM_H_INC___
 #define ___VMEM_H_INC___
 
-#ifndef _WIN_CE
+#ifndef UNDER_CE
 #define _USE_MSVCRT_MEM_ALLOC
 #endif
 #define _USE_LINKED_LIST
@@ -207,7 +207,8 @@ void VMem::Free(void* pMem)
                dTHX;
                int *nowhere = NULL;
                Perl_warn(aTHX_ "Free to wrong pool %p not %p",this,ptr->owner);
-               *nowhere = 0;
+               *nowhere = 0; /* this segfault is deliberate, 
+                                so you can see the stack trace */
 #else
                 ptr->owner->Free(pMem);        
 #endif