diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2002-08-13 17:16:32 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2002-08-13 17:16:32 +0000 |
| commit | 8ca2c9f049ccc39e65fe62fb05386ac44bde9db5 (patch) | |
| tree | dfc75d5914593ef0900695b16c57c27ae2455e60 | |
| parent | 36434fc01b3fcc1e8448702b7711b4d3d31fa290 (diff) | |
fix du bug signale par Steve Harris dans Caml-list
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5101 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | byterun/terminfo.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/byterun/terminfo.c b/byterun/terminfo.c index f136fc899..50b87da92 100644 --- a/byterun/terminfo.c +++ b/byterun/terminfo.c @@ -45,10 +45,13 @@ CAMLprim value terminfo_setup (value vchan) { value result; static char buffer[1024]; + char *term; chan = Channel (vchan); - if (tgetent(buffer, getenv("TERM")) != 1) return Bad_term; + term = getenv ("TERM"); + if (term == NULL) return Bad_term; + if (tgetent(buffer, term) != 1) return Bad_term; num_lines = tgetnum ("li"); up = tgetstr ("up", &area_p); |