From: espie <espie@openbsd.org>
Date: Mon, 6 Nov 2023 08:22:59 +0000 (+0000)
Subject: actually, I still need to exit() if infocmp can't be run
X-Git-Url: http://artulab.com/gitweb/?a=commitdiff_plain;h=fea8967d6e4484b477943b39bee4f444488b9d24;p=openbsd

actually, I still need to exit() if infocmp can't be run
---

diff --git a/gnu/usr.bin/perl/cpan/Term-Cap/Cap.pm b/gnu/usr.bin/perl/cpan/Term-Cap/Cap.pm
index 0bfbfcbef39..18cc57471c6 100644
--- a/gnu/usr.bin/perl/cpan/Term-Cap/Cap.pm
+++ b/gnu/usr.bin/perl/cpan/Term-Cap/Cap.pm
@@ -277,6 +277,7 @@ sub Tgetent
 	    if (!$child) {
 	    	open(STDERR, ">", "/dev/null");
 		exec('infocmp', '-CTr', $tmp_term);
+		exit(1);
 	    }
 	} else {
 	    open($fh, '<', $TERMCAP) || croak "open $TERMCAP: $!";