Lines Matching refs:deparse
28 if ($1 =~ /^deparse(,.+)?$/) {
29 $deparse = 1;
128 if ($deparse) {
129 _testprogs('deparse', '', @ARGV);
153 print <<'EOT' if ($type eq 'deparse');
200 if ($type eq 'deparse') {
221 close(SCRIPT) unless ($type eq 'deparse');
237 if ($type eq 'deparse') {
248 if ($type eq 'deparse') {
249 my $deparse =
254 open(RESULTS, $deparse)
255 or print "can't deparse '$deparse': $!.\n";
272 if $test =~ m(deparse|terse|ext/Storable/t/code);
422 if ($type eq 'deparse') {