From fea8967d6e4484b477943b39bee4f444488b9d24 Mon Sep 17 00:00:00 2001
From: espie <espie@openbsd.org>
Date: Mon, 6 Nov 2023 08:22:59 +0000
Subject: [PATCH] actually, I still need to exit() if infocmp can't be run

---
 gnu/usr.bin/perl/cpan/Term-Cap/Cap.pm | 1 +
 1 file changed, 1 insertion(+)

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: $!";
-- 
2.20.1