Browse Source

- fixed off-by-one in commandline parsing

- fixed spelling error
master
Andreas Romeyke 2 months ago
parent
commit
fbecc75018
1 changed files with 3 additions and 3 deletions
  1. +3
    -3
      bin/pronom_statistics.pl

+ 3
- 3
bin/pronom_statistics.pl View File

@@ -41,15 +41,15 @@ GetOptions (
say "--csvfile=FILE .............. creates a CSV file to store statistics";
say "--verbose ................... enables more verbose output in standard report";
say "--noprogress ................ disables progress bar";
say "droid_signature_filename..... DROID signature files (container filess not supported yet)";
say "droid_signature_filename..... DROID signature files (container files not supported yet)";
}
) or croak "wrong option, try '$0 --help'";
if ((defined $csv_file) && (-e $csv_file)) {
croak "CSV file '$csv_file' already exist";
}
say "using $#ARGV signature files";
say "using ",scalar @ARGV," signature files";
my $progress = Term::ProgressBar->new( $#ARGV );
for (my $idx=0; $idx < $#ARGV; $idx++) {
for (my $idx=0; $idx <= $#ARGV; $idx++) {
my $pronomfile = $ARGV[$idx];
if ( !defined $pronomfile ) {
say "you need at least a pronom signature file";


Loading…
Cancel
Save