Bug 157092: Implement a checking mechanism for invalid regexp (Fix the Oracle driver)

Patch By Xiaoou Wu <xiaoou.wu@oracle.com> r=mkanat, a=mkanat

Bug 157092: Implement a checking mechanism for invalid regexp (Fix the Oracle driver)
4d9a1326 · mkanat%bugzilla.org · 50be2386 · 4d9a1326
Commit 4d9a1326 authored Jun 23, 2008 by mkanat%bugzilla.org
Hide whitespace changes
Inline Side-by-side

Showing with 10 additions and 0 deletions

Oracle.pm Bugzilla/DB/Oracle.pm +10 -0

No files found.
--- a/Bugzilla/DB/Oracle.pm
+++ b/Bugzilla/DB/Oracle.pm
@@ -94,6 +94,16 @@ sub bz_last_key {
    return $last_insert_id;
 }

+sub bz_check_regexp {
+    my ($self, $pattern) = @_;
+
+    eval { $self->do("SELECT 1 FROM DUAL WHERE "
+          . $self->sql_regexp($self->quote("a"), $self->quote($pattern), 1)) };
+
+    $@ && ThrowUserError('illegal_regexp',
+        { value => $pattern, dberror => $self->errstr });
+}
+
 sub sql_regexp {
    my ($self, $expr, $pattern, $nocheck) = @_;