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 0bfbfcb..18cc574 100644 (file)
--- 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: $!";