Add :base_thread to :default in Opcode.pm

This allows lib/safe.t to pass when threaded.
It is unclear if 'lock' should be safe as it allows
denial of service attack, but could not figure out
how to add just 'specific' (sic) to :default
without triggering 'already tagged' warning noise.

p4raw-id: //depot/ansiperl@212

diff --git a/ext/Opcode/Opcode.pm b/ext/Opcode/Opcode.pm
index d2db5ec..c7d7ce3 100644 (file)
--- a/ext/Opcode/Opcode.pm
+++ b/ext/Opcode/Opcode.pm
@@ -438,7 +438,7 @@ These ops are related to multi-threading.
 A handy tag name for a I<reasonable> default set of ops.  (The current ops
 allowed are unstable while development continues. It will change.)
 
-    :base_core :base_mem :base_loop :base_io :base_orig
+    :base_core :base_mem :base_loop :base_io :base_orig :base_thread
 
 If safety matters to you (and why else would you be using the Opcode module?)
 then you should not rely on the definition of this, or indeed any other, optag!

diff --git a/win32/makefile.mk b/win32/makefile.mk
index 7f5dad3..b28c79f 100644 (file)
--- a/win32/makefile.mk
+++ b/win32/makefile.mk
@@ -460,8 +460,8 @@ $(PERLEXE): $(PERLDLL) $(CONFIGPM) perlmain.obj
 .ENDIF
        copy splittree.pl .. 
        $(MINIPERL) -I..\lib ..\splittree.pl "../LIB" "../LIB/auto"
-       attrib -r ..\t\*.*
-       copy test ..\t
+#      attrib -r ..\t\*.*
+#      copy test ..\t
 
 .IF "$(CCTYPE)" != "BORLAND"