summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristian Faulhammer <fauli@gentoo.org>2009-04-29 05:59:10 +0000
committerChristian Faulhammer <fauli@gentoo.org>2009-04-29 05:59:10 +0000
commit9dace60631608cee89dfda7330aab1cd41f31188 (patch)
tree09d8c318af47a060009a579a775a8263775800fd /dev-lang/erlang/files
parentWarn of the need for bleeding-edge dri in pkg_postinst. (diff)
downloadgentoo-2-9dace60631608cee89dfda7330aab1cd41f31188.tar.gz
gentoo-2-9dace60631608cee89dfda7330aab1cd41f31188.tar.bz2
gentoo-2-9dace60631608cee89dfda7330aab1cd41f31188.zip
fix runtime crash with eunit, patch found and reported by Sergey Sinkovskiy <glorybox DOT away AT gmail.com> on bug 267329
(Portage version: 2.1.6.11/cvs/Linux i686)
Diffstat (limited to 'dev-lang/erlang/files')
-rw-r--r--dev-lang/erlang/files/erlang-13.2-eunit_fix.patch35
1 files changed, 35 insertions, 0 deletions
diff --git a/dev-lang/erlang/files/erlang-13.2-eunit_fix.patch b/dev-lang/erlang/files/erlang-13.2-eunit_fix.patch
new file mode 100644
index 000000000000..772b6cf05065
--- /dev/null
+++ b/dev-lang/erlang/files/erlang-13.2-eunit_fix.patch
@@ -0,0 +1,35 @@
+Index: src/eunit_proc.erl
+===================================================================
+--- lib/eunit/src/eunit_proc.erl (revision 339)
++++ lib/eunit/src/eunit_proc.erl (working copy)
+@@ -628,16 +628,28 @@
+ catch
+ C:T -> {{error, {C,T,erlang:get_stacktrace()}}, Buf}
+ end;
++io_request({put_chars, _Enc, Chars}, Buf) ->
++ io_request({put_chars, Chars}, Buf);
++io_request({put_chars, _Enc, Mod, Func, Args}, Buf) ->
++ io_request({put_chars, Mod, Func, Args}, Buf);
++io_request({get_chars, _Enc, _Prompt, _N}, Buf) ->
++ {eof, Buf};
+ io_request({get_chars, _Prompt, _N}, Buf) ->
+ {eof, Buf};
+-io_request({get_chars, _Prompt, _M, _F, _Xs}, Buf) ->
+- {eof, Buf};
+ io_request({get_line, _Prompt}, Buf) ->
+ {eof, Buf};
++io_request({get_line, _Enc, _Prompt}, Buf) ->
++ {eof, Buf};
+ io_request({get_until, _Prompt, _M, _F, _As}, Buf) ->
+ {eof, Buf};
+ io_request({setopts, _Opts}, Buf) ->
+ {ok, Buf};
++io_request(getopts, Buf) ->
++ {error, {error, enotsup}, Buf};
++io_request({get_geometry,columns}, Buf) ->
++ {error, {error, enotsup}, Buf};
++io_request({get_geometry,rows}, Buf) ->
++ {error, {error, enotsup}, Buf};
+ io_request({requests, Reqs}, Buf) ->
+ io_requests(Reqs, {ok, Buf});
+ io_request(_, Buf) ->