equal
deleted
inserted
replaced
4 use Fatal qw(:void open seek truncate); |
4 use Fatal qw(:void open seek truncate); |
5 use FindBin qw($Bin); |
5 use FindBin qw($Bin); |
6 use File::Temp qw(tempfile);; |
6 use File::Temp qw(tempfile);; |
7 use File::Compare; |
7 use File::Compare; |
8 |
8 |
9 my $MIMECUT = "$Bin/../hs12"; |
9 my $MIMECUT = "$Bin/../mimecut"; |
10 |
10 |
11 my $tmpout = tempfile(); |
11 my $tmpout = tempfile(); |
12 open(my $saveout, ">&STDOUT"); |
12 open(my $saveout, ">&STDOUT"); |
13 open(STDOUT, ">&", $tmpout); |
13 open(STDOUT, ">&", $tmpout); |
14 |
14 |