binmode($fh,':encoding(UTF-8)');
while (<$fh>) {
chomp;
- my @elements = split /\t/;
- next unless @elements >=2;
- # we do this because the source maintainer file contains the
- # archive location, which we don't care about
- my ($key,$value)=($elements[0],$elements[-1]);
+ next unless m/^(\S+)\s+(\S.*\S)\s*$/;
+ my ($key,$value)=($1,$2);
$key = lc $key;
$forward->{$key}= $value;
if (defined $reverse) {
$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;
$EXPORT_TAGS{all} = [@EXPORT_OK];
}
-use File::Path;
-use File::Temp qw();
+use File::Path qw(remove_tree);
+use File::Temp qw(tempdir);
use MIME::Parser;
use POSIX qw(strftime);
my (@headerlines, @bodylines);
my $parser = MIME::Parser->new();
- my $tempdir = File::Temp::tempdir();
+ my $tempdir = tempdir(CLEANUP => 1);
$parser->output_under($tempdir);
my $entity = eval { $parser->parse_data($_[0]) };
@bodylines = map {convert_to_utf8($_,$charset)} @msg[$i .. $#msg];
}
- rmtree $tempdir, 0, 1;
+ remove_tree($tempdir,{verbose => 0, safe => 1});
# Remove blank lines.
shift @bodylines while @bodylines and $bodylines[0] !~ /\S/;