1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
package Devel::ebug::Backend::Plugin::Output;
use strict;
use warnings;
my $stdout = "";
my $stderr = "";
if ($ENV{PERL_DEBUG_DONT_RELAY_IO}) {
open NULL, ">/dev/null";
open NULL, '>', \$stdout;
open NULL, '>', \$stderr;
}
else {
close STDOUT;
open STDOUT, '>', \$stdout or die "Can't open STDOUT: $!";
close STDERR;
open STDERR, '>', \$stderr or die "Can't open STDOUT: $!";
}
sub register_commands {
return (output => { sub => \&output });
}
sub output {
my($req, $context) = @_;
return {
stdout => $stdout,
stderr => $stderr,
};
}
1;
|
