tags/0.1/mgaiso-checkmd5

#!/usr/bin/perl

use strict;
use MGATools::iso qw(include_md5);

@ARGV || exit(1);

my $isofile = $ARGV[0];
my $err = include_md5($isofile, 0, 1);
print $err;
1	#!/usr/bin/perl
2
3	use strict;
4	use MGATools::iso qw(include_md5);
5
6	@ARGV \|\| exit(1);
7
8	my $isofile = $ARGV[0];
9	my $err = include_md5($isofile, 0, 1);
10	print $err;