3 my $subref = \&dumpvar_epic::dump_array_expr;
4 my $savout = CORE::select($DB::OUT);
7 $subref->($offset, $varexpr);
10 CORE::select($savout);
14 do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
17 my $varexpr = <<'EOT';
20 my $subref = \&dumpvar_epic::dump_hash_expr;
21 my $savout = CORE::select($DB::OUT);
24 $subref->($offset, $varexpr);
27 CORE::select($savout);
31 do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
34 my $varexpr = <<'EOT';
37 my $subref = \&dumpvar_epic::dump_hash_expr;
38 my $savout = CORE::select($DB::OUT);
41 $subref->($offset, $varexpr);
44 CORE::select($savout);
48 do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
51 my $varexpr = <<'EOT';
54 my $subref = \&dumpvar_epic::dump_hash_expr;
55 my $savout = CORE::select($DB::OUT);
58 $subref->($offset, $varexpr);
61 CORE::select($savout);
65 do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
68 my $varexpr = <<'EOT';
71 my $subref = \&dumpvar_epic::dump_array_expr;
72 my $savout = CORE::select($DB::OUT);
75 $subref->($offset, $varexpr);
78 CORE::select($savout);
94 $to="andrew\@defaria.com"
95 $to="andrew\@defaria.com"