From 307a891161c5c60babae0416455c1a3a34cff34b Mon Sep 17 00:00:00 2001 From: Niels Thykier Date: Fri, 5 Aug 2016 16:22:09 +0000 Subject: [PATCH] Drop unused my $vars Signed-off-by: Niels Thykier --- cgi/libravatar.cgi | 3 --- cgi/version.cgi | 2 -- 2 files changed, 5 deletions(-) diff --git a/cgi/libravatar.cgi b/cgi/libravatar.cgi index 219d65e..33aa90a 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 e3df1fc..ab8f3c1 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.2