[asperl] integrate latest win32 branch
Gurusamy Sarathy [Sun, 22 Feb 1998 03:09:55 +0000 (03:09 +0000)]
p4raw-id: //depot/asperl@569

13 files changed:
1  2 
XSUB.h
global.sym
op.c
perl.c
perl.h
pp.c
pp_sys.c
regcomp.c
sv.c
win32/Makefile
win32/makefile.mk
win32/win32.h
win32/win32iop.h

diff --cc XSUB.h
Simple merge
diff --cc global.sym
Simple merge
diff --cc op.c
Simple merge
diff --cc perl.c
Simple merge
diff --cc perl.h
Simple merge
diff --cc pp.c
Simple merge
diff --cc pp_sys.c
Simple merge
diff --cc 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
--- 1/sv.c
--- 2/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
diff --cc win32/Makefile
Simple merge
Simple merge
diff --cc win32/win32.h
Simple merge
Simple merge