From: Don Armstrong <don@donarmstrong.com>
Date: Thu, 14 Jun 2018 00:28:41 +0000 (-0700)
Subject: bug links should all be numbers
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b12ebdaa6068e5bb808f4ff480d832e970fd3520;hp=0cd1eda7499d9dee79656a8240447b5e40537564;p=debbugs.git

bug links should all be numbers
---

diff --git a/Debbugs/CGI.pm b/Debbugs/CGI.pm
index b9554ea..d371ffe 100644
--- a/Debbugs/CGI.pm
+++ b/Debbugs/CGI.pm
@@ -78,6 +78,7 @@ use Debbugs::User qw();
 use Mail::Address;
 use POSIX qw(ceil);
 use Storable qw(dclone);
+use Scalar::Util qw(looks_like_number);
 
 use List::AllUtils qw(max);
 use File::stat;
@@ -504,8 +505,11 @@ sub bug_links {
 			    $_);
 		       } make_list($param{bug}) if exists $param{bug};
      } else {
-	 push @links, map {('bugreport.cgi?bug='.uri_escape_utf8($_),
-			    $_)}
+	 push @links,
+	     map {my $b = ceil($_);
+		  ('bugreport.cgi?bug='.$b,
+		   $b)}
+	     grep {looks_like_number($_)}
 	     make_list($param{bug}) if exists $param{bug};
      }
      my @return;