fix scope cleanup when next jumps to a continue block; this is rather

[perl5.git] / Porting / findvars

#!/l/local/bin/perl -w

$pat = '';
# construct word list
while (<DATA>) {
  chomp;
  next unless $_;
  $pat .= "$_|";
}
chop $pat if $pat =~ /\|$/;

# grep
while (<>) {
    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;
}
__END__
Argv
Cmd
DBcv
DBgv
DBline
DBsignal
DBsingle
DBsub
DBtrace
No
Sv
Xpv
Yes
amagic_generation
ampergv
an
archpat_auto
argvgv
argvoutgv
av_fetch_sv
basetime
beginav
bodytarget
bostr
bufend
bufptr
cddir
chopset
collation_ix
collation_name
collation_standard
collxfrm_base
collxfrm_mult
colors
colorset
compcv
compiling
comppad
comppad_name
comppad_name_fill
comppad_name_floor
cop_seqmax
copline
cryptseen
cshlen
cshname
curcop
curcopdb
curinterp
curpad
curpm
curstack
curstackinfo
curstash
curstname
curthr
dbargs
debdelim
debname
debstash
debug
defgv
defoutgv
defstash
delaymagic
diehook
dirty
dlevel
dlmax
do_undump
doextract
doswitches
dowarn
dumplvl
e_script
egid
endav
envgv
errgv
error_count
euid
eval_cond
eval_mutex
eval_owner
eval_root
eval_start
evalseq
exitlist
exitlistlen
expect
extralen
fdpid
filemode
firstgv
forkprocess
formfeed
formtarget
generation
gensym
gid
globalstash
he_root
hexdigit
hintgv
hints
hv_fetch_ent_mh
hv_fetch_sv
in_clean_all
in_clean_objs
in_eval
in_my
in_my_stash
incgv
initav
inplace
last_in_gv
last_lop
last_lop_op
last_proto
last_uni
lastfd
lastgotoprobe
lastscream
lastsize
lastspbase
laststatval
laststype
leftgv
lex_brackets
lex_brackstack
lex_casemods
lex_casestack
lex_defer
lex_dojoin
lex_expect
lex_fakebrack
lex_formbrack
lex_inpat
lex_inwhat
lex_op
lex_repl
lex_starts
lex_state
lex_stuff
lineary
linestart
linestr
localizing
localpatches
main_cv
main_root
main_start
mainstack
malloc_mutex
markstack
markstack_max
markstack_ptr
max_intro_pending
maxo
maxscream
maxsysfd
mess_sv
min_intro_pending
minus_F
minus_a
minus_c
minus_l
minus_n
minus_p
modcount
modglobal
multi_close
multi_end
multi_open
multi_start
multiline
mystrk
na
nexttoke
nexttype
nextval
nice_chunk
nice_chunk_size
ninterps
nomemok
nrs
nthreads
nthreads_cond
numeric_local
numeric_name
numeric_standard
ofmt
ofs
ofslen
oldbufptr
oldlastpm
oldname
oldoldbufptr
op
op_mask
op_seqmax
opsave
origalen
origargc
origargv
origenviron
origfilename
ors
orslen
osname
pad_reset_pending
padix
padix_floor
patchlevel
patleave
pending_ident
perl_destruct_level
perldb
pidstatus
preambleav
preambled
preprocess
profiledata
reg_eval_set
reg_flags
reg_start_tmp
reg_start_tmpl
regbol
regcc
regcode
regcomp_parse
regcomp_rx
regcompp
regdata
regdummy
regendp
regeol
regexecp
regflags
regindent
reginput
reginterp_cnt
reglastparen
regnarrate
regnaughty
regnpar
regprecomp
regprev
regprogram
regsawback
regseen
regsize
regstartp
regtill
regxend
replgv
restartop
retstack
retstack_ix
retstack_max
rightgv
rs
rsfp
rsfp_filters
runops
savestack
savestack_ix
savestack_max
sawampersand
sawstudy
sawvec
scopestack
scopestack_ix
scopestack_max
screamfirst
screamnext
secondgv
seen_evals
seen_zerolen
sh_path
siggv
sighandlerp
sortcop
sortcxix
sortstash
specialsv_list
splitstr
stack_base
stack_max
stack_sp
start_env
statbuf
statcache
statgv
statname
statusvalue
statusvalue_vms
stdingv
strchop
strtab
sub_generation
sublex_info
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
tmps_max
tmps_stack
tokenbuf
top_env
toptarget
uid
unsafe
warnhook
xiv_arenaroot
xiv_root
xnv_root
xpv_root
xrv_root
piMem
piENV
piStdIO
piLIO
piDir
piSock
piProc