use strict;
use warnings;
use English qw( -no_match_vars );
-our $VERSION = '20220613';
+our $VERSION = '20221112';
use constant EMPTY_STRING => q{};
use constant SPACE => q{ };
my $rtoken_type = $line_of_tokens->{_rtoken_type};
my $rtokens = $line_of_tokens->{_rtokens};
my $rlevels = $line_of_tokens->{_rlevels};
- my $rblock_type = $line_of_tokens->{_rblock_type};
my $input_line_number = $line_of_tokens->{_line_number};
my $line_type = $line_of_tokens->{_line_type};
my $token_str = "$input_line_number: ";
my $reconstructed_original = "$input_line_number: ";
- my $block_str = "$input_line_number: ";
my $pattern = EMPTY_STRING;
my @next_char = ( '"', '"' );
$pattern .= $rtoken_type->[$j];
}
$reconstructed_original .= $rtokens->[$j];
- $block_str .= "($rblock_type->[$j])";
$num = length( $rtokens->[$j] );
my $type_str = $rtoken_type->[$j];