Another address for Schubiger

[perl5.git] / Porting / findvars

diff --git a/Porting/findvars b/Porting/findvars
old mode 100755 (executable)
new mode 100644 (file)
index b91753b..173175e
--- a/Porting/findvars
+++ b/Porting/findvars
@@ -1,4 +1,4 @@
-#!/l/local/bin/perl -w
+#!/usr/bin/perl -w
 
 $pat = '';
 # construct word list
@@ -11,15 +11,17 @@ chop $pat if $pat =~ /\|$/;
 
 # grep
 while (<>) {
-    if (/^(.*?)\b($pat)\b(.*)$/o) {
-        my $head = "$1#$2#";
-        $_ = $3;
-        while (/^(.*?)\b($pat)\b(.*)$/o) {
-            $head .= "$1#$2#";
-            $_ = $3;
-        }
-       print "$ARGV\:$.\:$head$_\n";
-    }
+    print "$ARGV\:$.\:$_" if s/\b($pat)\b/#$1#/og;
+# this variant might useful if the transformation is more complicated
+#    if (/^(.*?)\b($pat)\b(.*)$/o) {
+#        my $head = "$1#$2#";
+#        $_ = $3;
+#        while (/^(.*?)\b($pat)\b(.*)$/o) {
+#            $head .= "$1#$2#";
+#            $_ = $3;
+#        }
+#      print "$ARGV\:$.\:$head$_\n";
+#    }
 }
 continue {
     close ARGV if eof;
@@ -80,7 +82,6 @@ curstack
 curstackinfo
 curstash
 curstname
-curthr
 dbargs
 debdelim
 debname
@@ -106,9 +107,6 @@ envgv
 errgv
 error_count
 euid
-eval_cond
-eval_mutex
-eval_owner
 eval_root
 eval_start
 evalseq
@@ -206,13 +204,8 @@ na
 nexttoke
 nexttype
 nextval
-nice_chunk
-nice_chunk_size
 ninterps
 nomemok
-nrs
-nthreads
-nthreads_cond
 numeric_local
 numeric_name
 numeric_standard
@@ -331,22 +324,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