diff options
Diffstat (limited to 'Bugzilla/BugUrl/Debian.pm')
| -rw-r--r-- | Bugzilla/BugUrl/Debian.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Bugzilla/BugUrl/Debian.pm b/Bugzilla/BugUrl/Debian.pm index b726b0b5a..2067c9eb6 100644 --- a/Bugzilla/BugUrl/Debian.pm +++ b/Bugzilla/BugUrl/Debian.pm @@ -7,7 +7,7 @@ package Bugzilla::BugUrl::Debian; -use 5.10.1; +use 5.14.0; use strict; use warnings; @@ -28,8 +28,8 @@ sub should_handle { return ((lc($uri->authority) eq 'bugs.debian.org' or lc($uri->authority) eq 'debbugs.gnu.org') and (($uri->path =~ /bugreport\.cgi$/ - and $uri->query_param('bug') =~ m|^\d+$|) - or $uri->path =~ m|^/\d+$|)) ? 1 : 0; + and $uri->query_param('bug') =~ m|^\d+$|a) + or $uri->path =~ m|^/\d+$|a)) ? 1 : 0; } sub _check_value { @@ -39,7 +39,7 @@ sub _check_value { # This is the shortest standard URL form for Debian BTS URLs, # and so we reduce all URLs to this. - $uri->path =~ m|^/(\d+)$| || $uri->query_param('bug') =~ m|^(\d+)$|; + $uri->path =~ m|^/(\d+)$|a || $uri->query_param('bug') =~ m|^(\d+)$|a; $uri = new URI('https://' . $uri->authority . '/' . $1); return $uri; |