pdb: getting rid of some warnings in a perl script.

Fixing:

> Scalar value @inargs[...] better written as $inargs[...] at pdb/lib.pl line 247.
> Scalar value @outargs[...] better written as $outargs[...] at pdb/lib.pl line 386.
This commit is contained in:
Jehan 2023-12-08 20:42:30 +09:00
parent e8ad8af0f7
commit 78108cc3c8
1 changed files with 2 additions and 2 deletions

View File

@ -245,7 +245,7 @@ sub generate_fun {
$argdesc .= ":";
if (exists $arg->{array}) {
$argdesc .= " (array length=@inargs[$argc - 1]->{name})";
$argdesc .= " (array length=$inargs[$argc - 1]->{name})";
}
if (exists $arg->{in_annotate}) {
@ -384,7 +384,7 @@ CODE
}
if (exists $arg->{array}) {
$argdesc .= " (array length=@outargs[$argc - 2]->{name})";
$argdesc .= " (array length=$outargs[$argc - 2]->{name})";
}
if (exists $arg->{out_annotate}) {