This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Resolve ansiperl against win32
authorNick Ing-Simmons <nik@tiuk.ti.com>
Sat, 22 Nov 1997 16:30:27 +0000 (16:30 +0000)
committerNick Ing-Simmons <nik@tiuk.ti.com>
Sat, 22 Nov 1997 16:30:27 +0000 (16:30 +0000)
p4raw-id: //depot/ansiperl@278

1  2 
global.sym
op.c
perl.c
perl.h
pp_ctl.c
toke.c

diff --cc global.sym
Simple merge
diff --cc op.c
--- 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