From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 22 Feb 1998 03:09:55 +0000 (+0000)
Subject: [asperl] integrate latest win32 branch
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=611e57134ef8720264c53f5e0589f41461af4dcb;p=p5sagit%2Fp5-mst-13.2.git

[asperl] integrate latest win32 branch

p4raw-id: //depot/asperl@569
---

611e57134ef8720264c53f5e0589f41461af4dcb
diff --cc regcomp.c
index 363a14b,7411b8a..fc6b131
--- a/regcomp.c
+++ b/regcomp.c
@@@ -162,8 -182,9 +162,9 @@@ static scan_data_t zero_scan_data = { 0
  #define SF_HAS_PAR		0x80
  #define SF_IN_PAR		0x100
  #define SF_HAS_EVAL		0x200
+ #define SCF_DO_SUBSTR		0x400
  
 -static void
 +STATIC void
  scan_commit(scan_data_t *data)
  {
      STRLEN l = SvCUR(data->last_found);
diff --cc sv.c
index 93fcaa6,0edfdb2..a4d72bc
--- a/sv.c
+++ b/sv.c
@@@ -2297,18 -2293,16 +2299,16 @@@ sv_usepvn_mg(register SV *sv, register 
      SvSETMAGIC(sv);
  }
  
 -static void
 +STATIC void
  sv_check_thinkfirst(register SV *sv)
  {
-     if (SvTHINKFIRST(sv)) {
- 	if (SvREADONLY(sv)) {
- 	    dTHR;
- 	    if (curcop != &compiling)
- 		croak(no_modify);
- 	}
- 	if (SvROK(sv))
- 	    sv_unref(sv);
+     if (SvREADONLY(sv)) {
+ 	dTHR;
+ 	if (curcop != &compiling)
+ 	    croak(no_modify);
      }
+     if (SvROK(sv))
+ 	sv_unref(sv);
  }
      
  void