diff options
| author | dkl%redhat.com <> | 2008-06-20 01:06:27 +0200 |
|---|---|---|
| committer | dkl%redhat.com <> | 2008-06-20 01:06:27 +0200 |
| commit | c34003dcdd1cc0705c5464164f7d4dfd52d6d3d6 (patch) | |
| tree | d2ba25b4d2c2796f75c6044fb4a9bbc32009e204 /Bugzilla/DB/Oracle.pm | |
| parent | f575fab32dc8679c3fa69bf38b7017049285b42c (diff) | |
| download | bugzilla-c34003dcdd1cc0705c5464164f7d4dfd52d6d3d6.tar.gz bugzilla-c34003dcdd1cc0705c5464164f7d4dfd52d6d3d6.tar.xz | |
Bug 157092 â Implement a checking mechanism for invalid regexp
Patch by David Lawrence <dkl@redhat.com> - r/a=mkanat
Diffstat (limited to 'Bugzilla/DB/Oracle.pm')
| -rw-r--r-- | Bugzilla/DB/Oracle.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/Bugzilla/DB/Oracle.pm b/Bugzilla/DB/Oracle.pm index 9f759785e..1387a45cb 100644 --- a/Bugzilla/DB/Oracle.pm +++ b/Bugzilla/DB/Oracle.pm @@ -95,13 +95,17 @@ sub bz_last_key { } sub sql_regexp { - my ($self, $expr, $pattern) = @_; + my ($self, $expr, $pattern, $nocheck) = @_; + + $self->bz_check_regexp($pattern) if !$nocheck; return "REGEXP_LIKE($expr, $pattern)"; } sub sql_not_regexp { - my ($self, $expr, $pattern) = @_; + my ($self, $expr, $pattern, $nocheck) = @_; + + $self->bz_check_regexp($pattern) if !$nocheck; return "NOT REGEXP_LIKE($expr, $pattern)" } |