3 my $savout = select($DB::OUT);
4 dumpvar_epic::dump_lexical_vars($offset);
9 do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
12 my $varexpr = <<'EOT';
15 my $subref = \&dumpvar_epic::dump_hash_expr;
16 my $savout = select($DB::OUT);
19 $subref->($offset, $varexpr);
26 do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
29 my $varexpr = <<'EOT';
32 my $subref = \&dumpvar_epic::dump_array_expr;
33 my $savout = select($DB::OUT);
36 $subref->($offset, $varexpr);
43 do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
46 my $varexpr = <<'EOT';
49 my $subref = \&dumpvar_epic::dump_array_expr;
50 my $savout = select($DB::OUT);
53 $subref->($offset, $varexpr);
82 $cmd .= "| grep -v 'grep -i \'$name\'"
84 ($status, @output) = Execute $cmd
86 $cmd = 'ps -ef | grep -i \'mediamallserver\' | grep -v \'grep -i \"mediamallserver\"\''
88 $cmd = 'ps -ef | grep -i \'mediamallserver\' | grep -v \'grep -i \"mediamallserver\"\''
89 ($status, @output) = Execute $cmd
92 $cmd = 'ps -eWf | grep -i \'mediamallserver\' | grep -v \'grep -i \"mediamallserver\"\''
93 ($status, @output) = Execute $cmd