From 307a891161c5c60babae0416455c1a3a34cff34b Mon Sep 17 00:00:00 2001
From: Niels Thykier <niels@thykier.net>
Date: Fri, 5 Aug 2016 16:22:09 +0000
Subject: [PATCH] Drop unused my $vars
Signed-off-by: Niels Thykier <niels@thykier.net>
---
cgi/libravatar.cgi | 3 ---
cgi/version.cgi | 2 --
2 files changed, 5 deletions(-)
diff --git a/cgi/libravatar.cgi b/cgi/libravatar.cgi
index 219d65ee..33aa90a7 100755
--- a/cgi/libravatar.cgi
+++ b/cgi/libravatar.cgi
@@ -6,7 +6,6 @@ use strict;
use Debbugs::Config qw(:config);
use Debbugs::CGI qw(cgi_parameters);
use Debbugs::Common;
-use Digest::MD5 qw(md5_hex);
use File::LibMagic;
use Debbugs::Libravatar qw(:libravatar);
@@ -30,8 +29,6 @@ if ($param{avatar} ne 'yes' or not defined $param{email} or not length $param{em
exit 0;
}
-# figure out what the md5sum of the e-mail is.
-my $email_md5sum = md5_hex(lc($param{email}));
my ($cache_location, $is_valid) = cache_location(email => lc($param{email}));
# if we've got it, and it's less than one hour old, return it.
if ($is_valid) {
diff --git a/cgi/version.cgi b/cgi/version.cgi
index e3df1fc1..ab8f3c17 100755
--- a/cgi/version.cgi
+++ b/cgi/version.cgi
@@ -232,7 +232,6 @@ if ($cgi_var{collapse}) {
# nodes that can be collapsed are those that have one child
# are in the same state as their parent, and are not in a suite
foreach my $key (keys %reversed_nodes) {
- my ($short_version) = $key =~ m{/(.+)$};
if (not exists $version_to_dist{$key}
and @{$reversed_nodes{$key}} <= 1
and defined $version->{parent}{$key}
@@ -282,7 +281,6 @@ if ($cgi_var{collapse}) {
}
foreach my $key (keys %all_states) {
- my ($short_version) = $key =~ m{/(.+)$};
next if exists $collapsed_nodes{$key};
next if $cgi_var{ignore_boring} and (not defined $all_states{$key}
or $all_states{$key} eq 'absent');
--
2.39.5