summaryrefslogtreecommitdiff
path: root/perl5
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2022-06-19 21:59:29 -0700
committerSean Whitton <spwhitton@spwhitton.name>2022-06-20 17:49:52 -0700
commit188dce8c09ff9d49b2dec8001c831ea98947a5b1 (patch)
tree708c0982aa1e1c4f98830b4379a88a0ce64f37d6 /perl5
parente0af493195d4743d8d44a29fca82291b7b872cba (diff)
downloaddotfiles-188dce8c09ff9d49b2dec8001c831ea98947a5b1.tar.gz
_sysptycap_pty: ensure output field defined when cmd outputs nothing
Diffstat (limited to 'perl5')
-rw-r--r--perl5/Local/Interactive.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl5/Local/Interactive.pm b/perl5/Local/Interactive.pm
index bac754a4..f58c4e1e 100644
--- a/perl5/Local/Interactive.pm
+++ b/perl5/Local/Interactive.pm
@@ -221,7 +221,7 @@ sub _sysptycap_pty {
exec @_;
}
$pty->close;
- my $return = {};
+ my $return = { output => "" };
while (1) {
my $rin = "";
vec($rin, fileno $slave, 1) = 1;