Allow newer bug URLs on rt.perl.org
authorKevin Falcone <falcone@bestpractical.com>
Tue, 22 Oct 2013 18:38:53 +0000 (14:38 -0400)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 25 Oct 2013 21:41:30 +0000 (14:41 -0700)
Porting/checkURL.pl

index 9fb48df..94892f0 100755 (executable)
@@ -54,7 +54,7 @@ foreach my $filename (@filenames) {
 
         # no need to hit rt.perl.org
         next
-            if $uri =~ m{^https?://rt.perl.org/rt3/Ticket/Display.html?id=\d+$};
+            if $uri =~ m{^https?://rt.perl.org/(?:rt3/)?Ticket/Display.html?id=\d+$};
 
         # no need to hit rt.cpan.org
         next