Resolve ansiperl against win32

p4raw-id: //depot/ansiperl@278

diff --cc global.sym
Simple merge

diff --cc op.c
index 30cbe3a,73c8584..029aac8
--- 1/op.c
--- 2/op.c
+++ b/op.c
@@@ -527,11 -531,13 +531,12 @@@ find_threadsv(char *name
        case '\'':
            sawampersand = TRUE;
            SvREADONLY_on(sv);
 -          sv_magic(sv, 0, 0, name, 1); 
 -          break;
+       default:
+           sv_magic(sv, 0, 0, name, 1); 
 +          break;
        }
-       sv_magic(sv, 0, 0, name, 1); 
        DEBUG_L(PerlIO_printf(PerlIO_stderr(),
-                             "find_thread_magical: new SV %p for $%s%c\n",
+                             "find_threadsv: new SV %p for $%s%c\n",
                              sv, (*name < 32) ? "^" : "",
                              (*name < 32) ? toCTRL(*name) : *name));
      }

diff --cc perl.c
Simple merge

diff --cc perl.h
Simple merge

diff --cc pp_ctl.c
Simple merge

diff --cc toke.c
Simple merge