use warnings;
use strict;
use vars qw($VERSION $DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
-use base qw(Exporter);
+use Exporter qw(import);
use Debbugs::Config qw(:config);
use Debbugs::Common qw(:lock);
use CGI::Simple;
use Debbugs::CGI qw(cgi_parameters);
use Digest::MD5 qw(md5_hex);
-use LWP::UserAgent;
use File::Temp qw(tempfile);
use File::LibMagic;
use Cwd qw(abs_path);
return $temp_location;
}
}
+ require LWP::UserAgent;
+
my $dest_type;
eval {
my $uri = libravatar_url(email => $param{email},
$temp_fn,
$cache_location.'.'.$dest_type) == 0 or
die "convert file failed";
- unlink($temp_fh);
+ unlink($temp_fn);
};
if ($@) {
unlink($cache_location.'.'.$dest_type) if -e $cache_location.'.'.$dest_type;