From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sat, 22 Nov 1997 16:30:27 +0000 (+0000)
Subject: Resolve ansiperl against win32
X-Git-Tag: accepted/trunk/20130322.191538~37258^2~90
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=f81342c8ed56420002f9ad172de0b7485a7c6b96;p=platform%2Fupstream%2Fperl.git

Resolve ansiperl against win32

p4raw-id: //depot/ansiperl@278
---

f81342c8ed56420002f9ad172de0b7485a7c6b96
diff --cc op.c
index 30cbe3a,73c8584..029aac8
--- a/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));
      }