[PATCH] virt-top: fix to parse init-file correctly

[Richard W.M. Jones]

On Mon, Dec 26, 2022 at 09:18:15AM +0900, Yuya Higashi wrote:
> This fixes the following runtime error when parsing init-file.
> 
> $ virt-top --init-file <(echo "sort id")
> Error: Invalid_argument("String.sub / Bytes.sub")
> Raised at Stdlib.invalid_arg in file "stdlib.ml", line 30, characters 20-45
> Called from Stdlib__String.sub in file "string.ml" (inlined), line 50, characters 2-23
> Called from Utils.split in file "utils.ml", line 82, characters 24-68
> Called from Utils.read_config_file.(fun) in file "utils.ml", line 114, characters 23-37
> Called from Stdlib__List.map in file "list.ml", line 92, characters 20-23
> Called from Top.start_up.try_to_read_init_file in file "top.ml", line 153, characters 17-42
> Called from Main.script_mode in file "main.ml", line 37, characters 6-17
> 
> Signed-off-by: Yuya Higashi <higashi.yuya at fujitsu.com>
> ---
>  src/utils.ml | 2 +-
>  1 file changed, 1 insertion(+), 1 deletion(-)
> 
> diff --git a/src/utils.ml b/src/utils.ml
> index 1f00803..8dfb255 100644
> --- a/src/utils.ml
> +++ b/src/utils.ml
> @@ -79,7 +79,7 @@ let trim ?(test = isspace) str =
>  let split str sep =
>    try
>      let i = String.index str sep in
> -    String.sub str 0 i, String.sub str (i+1) (String.length str - 1)
> +    String.sub str 0 i, String.sub str (i+1) (String.length str - i - 1)
>    with
>      Not_found -> str, ""

Thanks - pushed it as:

http://git.annexia.org/?p=virt-top.git;a=commitdiff;h=1d04fdfce6edea685596fbb18920799c70f1d7fa

If Fujitsu needs any of these patches added to RHEL, please
open a bug using this link:

https://bugzilla.redhat.com/enter_bug.cgi?product=Red%20Hat%20Enterprise%20Linux%209&component=virt-top

Rich.

-- 
Richard Jones, Virtualization Group, Red Hat http://people.redhat.com/~rjones
Read my programming and virtualization blog: http://rwmj.wordpress.com
Fedora Windows cross-compiler. Compile Windows programs, test, and
build Windows installers. Over 100 libraries supported.
http://fedoraproject.org/wiki/MinGW