| Subject: | Multiple nested cursors causes sig-abort |
Hello,
I found a bug with multiple nested cursor in DBD::Oracle 1.24a.
Causes sig-abort when fetching outer cursor.
Problem is with fetching something like this:
SELECT object_name,
CURSOR(SELECT object_name FROM dual)
CURSOR(SELECT object_name FROM dual)
FROM all_objects WHERE rownum <= 5
I made modification in the test 55nested.t and I attach a diff for it.
I tried it on two perl versions (and two systems):
This is perl, v5.10.1 (*) built for MSWin32-x86-multi-thread
This is perl, v5.10.0 built for i686-linux
Thanks.
Ladislav Dokulil (Alladdin)
| Subject: | multiple_nested_cursors_test.diff |
Index: t/55nested.t
===================================================================
--- t/55nested.t (revision 13910)
+++ t/55nested.t (working copy)
@@ -27,7 +27,9 @@
# 10.2.0.1 (Base Release)
my $outer = $dbh->prepare(q{
- SELECT object_name, CURSOR(SELECT object_name FROM dual)
+ SELECT object_name,
+ CURSOR(SELECT object_name FROM dual)
+ CURSOR(SELECT object_name FROM dual)
FROM all_objects WHERE rownum <= 5});
ok($outer, 'prepare select');