We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent d9a989d commit 8db1876Copy full SHA for 8db1876
1 file changed
t/lib/DodTestUtil.pm
@@ -196,11 +196,17 @@ sub create_sql {
196
add_drop_table => $drop_table,
197
);
198
$sql = $sqlt->translate(\$sql) or die $sqlt->error;
199
+ return split_sql_for_oracle($sql) if $driver eq 'Oracle';
200
return split_sql($sql);
201
}
202
$sql;
203
204
205
+sub split_sql_for_oracle {
206
+ my ($sql) = @_;
207
+ return map { split_sql($_) } split(/\s*\/\s*/, $sql);
208
+}
209
+
210
sub split_sql {
211
my ($sql) = @_;
212
my @ret;
0 commit comments