Restore strict refs on stashes, removed by ce10b5d1ec5b5f68b0811018a415bc37.

[perl5.git] / Porting / findvars

diff --git a/Porting/findvars b/Porting/findvars
index 3cdb854..b2914f5 100755 (executable)
--- a/Porting/findvars
+++ b/Porting/findvars
@@ -1,4 +1,4 @@
-#!/l/local/bin/perl -w
+#!/usr/bin/perl -w
 
 $pat = '';
 # construct word list
@@ -82,7 +82,6 @@ curstack
 curstackinfo
 curstash
 curstname
-curthr
 dbargs
 debdelim
 debname
@@ -108,9 +107,6 @@ envgv
 errgv
 error_count
 euid
-eval_cond
-eval_mutex
-eval_owner
 eval_root
 eval_start
 evalseq
@@ -212,9 +208,6 @@ nice_chunk
 nice_chunk_size
 ninterps
 nomemok
-nrs
-nthreads
-nthreads_cond
 numeric_local
 numeric_name
 numeric_standard
@@ -333,22 +326,16 @@ subline
 subname
 sv_arenaroot
 sv_count
-sv_mutex
 sv_no
 sv_objcount
 sv_root
 sv_undef
 sv_yes
-svref_mutex
 sys_intern
 tainted
 tainting
 thisexpr
 thr_key
-threadnum
-threads_mutex
-threadsv_names
-thrsv
 timesbuf
 tmps_floor
 tmps_ix