Skip to content

Commit 8db1876

Browse files
committed
oracle translation may include slash as statement delimiter
1 parent d9a989d commit 8db1876

1 file changed

Lines changed: 6 additions & 0 deletions

File tree

t/lib/DodTestUtil.pm

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -196,11 +196,17 @@ sub create_sql {
196196
add_drop_table => $drop_table,
197197
);
198198
$sql = $sqlt->translate(\$sql) or die $sqlt->error;
199+
return split_sql_for_oracle($sql) if $driver eq 'Oracle';
199200
return split_sql($sql);
200201
}
201202
$sql;
202203
}
203204

205+
sub split_sql_for_oracle {
206+
my ($sql) = @_;
207+
return map { split_sql($_) } split(/\s*\/\s*/, $sql);
208+
}
209+
204210
sub split_sql {
205211
my ($sql) = @_;
206212
my @ret;

0 commit comments

Comments
 (0)