system + exit -> exec

as noticed by afresh1@
(this should be all for now)

diff --git a/gnu/usr.bin/perl/cpan/Term-Cap/Cap.pm b/gnu/usr.bin/perl/cpan/Term-Cap/Cap.pm
index c814a71..0bfbfcb 100644 (file)
--- a/gnu/usr.bin/perl/cpan/Term-Cap/Cap.pm
+++ b/gnu/usr.bin/perl/cpan/Term-Cap/Cap.pm
@@ -276,8 +276,7 @@ sub Tgetent
            warn "cannot run infocmp: $!" if !defined $child;
            if (!$child) {
                open(STDERR, ">", "/dev/null");
-               system('infocmp', '-CTr', $tmp_term);
-               exit(1);
+               exec('infocmp', '-CTr', $tmp_term);
            }
        } else {
            open($fh, '<', $TERMCAP) || croak "open $TERMCAP: $!";