From 86fb87f1a65a17e7a86fe71b06d57767b0b3ea3b Mon Sep 17 00:00:00 2001
From: Frédéric Buclin <LpSolit@gmail.com>
Date: Mon, 29 Feb 2016 19:34:34 +0100
Subject: Bug 1136137: Require Perl 5.14 r=dkl

---
 Bugzilla/BugUrl/Launchpad.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Bugzilla/BugUrl/Launchpad.pm')

diff --git a/Bugzilla/BugUrl/Launchpad.pm b/Bugzilla/BugUrl/Launchpad.pm
index 0362747a2..36a911130 100644
--- a/Bugzilla/BugUrl/Launchpad.pm
+++ b/Bugzilla/BugUrl/Launchpad.pm
@@ -7,7 +7,7 @@
 
 package Bugzilla::BugUrl::Launchpad;
 
-use 5.10.1;
+use 5.14.0;
 use strict;
 use warnings;
 
@@ -25,7 +25,7 @@ sub should_handle {
     #   https://launchpad.net/bugs/1234
     # All variations end with either "/bugs/1234" or "/+bug/1234"
     return ($uri->authority =~ /launchpad\.net$/
-            and $uri->path =~ m|bugs?/\d+$|) ? 1 : 0;
+            and $uri->path =~ m|bugs?/\d+$|a) ? 1 : 0;
 }
 
 sub _check_value {
@@ -35,7 +35,7 @@ sub _check_value {
 
     # This is the shortest standard URL form for Launchpad bugs,
     # and so we reduce all URLs to this.
-    $uri->path =~ m|bugs?/(\d+)$|;
+    $uri->path =~ m|bugs?/(\d+)$|a;
     $uri = new URI("https://launchpad.net/bugs/$1");
 
     return $uri;
-- 
cgit v1.2.3-24-g4f1b