Drop unused my $vars

Signed-off-by: Niels Thykier <niels@thykier.net>

diff --git a/cgi/libravatar.cgi b/cgi/libravatar.cgi
index 219d65ee0c268c69bca1f5d63b8467422072fa90..33aa90a7d5b09c8a3d8296e77dbd93bf336983d0 100755 (executable)
--- 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 e3df1fc1cd2decd453e54c67681a91d07f6b61f2..ab8f3c17a287604aa8e565165c961bd5987c0889 100755 (executable)
--- 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');