scalar

• The original code is full of this sort of useless use of scalar:

     343  my $num_unique_sizes = scalar (keys %names_by_size);

     359      my $num_files_this_size = scalar (@{$names_by_size{$filesz}});

     459        print scalar (@$array_ref) .
     460            " identical files of size $filesz:\n";

     573            if (scalar (@dups_found) > 1);

     647            if ( scalar  (@{$file_name_by_md5sum{$md5sum}}) > 1);

     689        push @fc_LoL , [ @dups_found ]
     690            if (scalar (@dups_found) > 1);

     766        if (scalar (@dups_found) > 1)

• I think they should all be fixed.

Next

Copyright © 2006 M. J. Dominus