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.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.pm')
| -rw-r--r-- | Bugzilla/DB.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/Bugzilla/DB.pm b/Bugzilla/DB.pm index 1617b7fc2..2eba30482 100644 --- a/Bugzilla/DB.pm +++ b/Bugzilla/DB.pm @@ -383,6 +383,15 @@ sub bz_last_key { $table, $column); } +sub bz_check_regexp { + my ($self, $pattern) = @_; + + eval { $self->do("SELECT " . $self->sql_regexp($self->quote("a"), $pattern, 1)) }; + + $@ && ThrowUserError('illegal_regexp', + { value => $pattern, dberror => $self->errstr }); +} + ##################################################################### # Database Setup ##################################################################### |