Annotation of /mgatools/trunk/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	boklm	1066	#!/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;