Commit dfbd474e authored by kai.b's avatar kai.b
Browse files

ExtractBasicStats.pl minor (but significant) bug fix.

parent e2f5dca1

sub/ExtractBasicStats.pl

+1 −1
Original line number Diff line number Diff line
@@ -51,7 +51,7 @@ while (my $line = <ORIGINAL>) { 
    my $adjusted = $original;

    if ($adjust_length >= 0) {

        my $length = $adjust_length;

        $adjusted = substr ($length, 0, $adjusted);

        $adjusted = substr ($adjusted, 0, $length);

    }

    else {

        my $length = abs ($adjust_length);

CRA Git | Maintained and supported by SUSTech CRA and CCSE