dolysis
/
j2tn
3
0
Fork 0
Code Issues Pull Requests Releases Activity

Fix spelling errors

This commit is contained in:
André Stemmet 2023-06-09 13:13:05 +01:00
parent 7cb2bca923
commit 8eaa5986b1
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
j2tn.pl
View File

@ -15,7 +15,7 @@ use open qw(:std :utf8);
local $YAML::UseAliases = 0;
sub normalize ($item) {
die "item must be a HASH refence" unless ref($item) eq 'HASH';
die "item must be a HASH reference" unless ref($item) eq 'HASH';
$item->{rdc} = [] unless exists $item->{rdc};
$item->{parsed} = "" unless exists $item->{parsed};
$item->{nest} = -1 unless exists $item->{nest};
@ -62,9 +62,9 @@ sub normalize ($item) {
} ## end sub normalize
sub j2tn ( $json, $lol ) {
die "lol must be a HASH refence" unless ref($lol) eq 'HASH';
die "lol must be a HASH reference" unless ref($lol) eq 'HASH';
$lol->{data} = [ [] ] unless exists $lol->{data};
$lol->{index} = { "_normlized_" => 0 } unless exists $lol->{index};
$lol->{index} = { "_normalized_" => 0 } unless exists $lol->{index};
my $index = $lol->{index};
my $columns = 1;
my $rows = 1;
@ -174,6 +174,7 @@ sub debug ( $cmd, $cli, $debug = 0 ) {
}
else {
$debug++;
# cspell:ignore unshift
unshift @$cli, $dv if defined $dv;
}
$v->{"new-debug"} = $debug;