G
grocery_stocker
When I take a glob reference to ERROR....
m-net% more mv.pl
#!/usr/bin/perl -w
use IPC::Open3;
local (*READ, *WRITE, *ERROR);
$pid = open3(\*READ, \*WRITE, \*ERROR, 'mv abc /efg');
waitpid($pid, 0);
if($?) {
warn "exit code = ", $?>>8, "\n";
my $result = <ERROR>;
print $result;
}
I get....
m-net% ./mv.pl
exit code = 1
mv: rename abc to /efg: No such file or directory
But when I DON'T take a glob reference to ERROR, I get the same thing.
m-net% more mv2.pl
#!/usr/bin/perl -w
use IPC::Open3;
local (*READ, *WRITE, *ERROR);
$pid = open3(*READ, *WRITE, *ERROR, 'mv abc /efg');
waitpid($pid, 0);
if($?) {
warn "exit code = ", $?>>8, "\n";
my $result = <ERROR>;
print $result;
}
m-net% ./mv2.pl
exit code = 1
mv: rename abc to /efg: No such file or directory
m-net%
Why is this?
m-net% more mv.pl
#!/usr/bin/perl -w
use IPC::Open3;
local (*READ, *WRITE, *ERROR);
$pid = open3(\*READ, \*WRITE, \*ERROR, 'mv abc /efg');
waitpid($pid, 0);
if($?) {
warn "exit code = ", $?>>8, "\n";
my $result = <ERROR>;
print $result;
}
I get....
m-net% ./mv.pl
exit code = 1
mv: rename abc to /efg: No such file or directory
But when I DON'T take a glob reference to ERROR, I get the same thing.
m-net% more mv2.pl
#!/usr/bin/perl -w
use IPC::Open3;
local (*READ, *WRITE, *ERROR);
$pid = open3(*READ, *WRITE, *ERROR, 'mv abc /efg');
waitpid($pid, 0);
if($?) {
warn "exit code = ", $?>>8, "\n";
my $result = <ERROR>;
print $result;
}
m-net% ./mv2.pl
exit code = 1
mv: rename abc to /efg: No such file or directory
m-net%
Why is this?