search for: fold_f

Patch supplied by Mikhail Gordeev, posting for review. I have compile tested it and checked the code and it looks all fine to me, so ACK from my point of view. I did not actually run it because I don't have an ALT Linux install, but it doesn't seem as if it would affect any other distro. Rich.

...+ let kmodpath = kernel.ki_modpath in + + (* find module files *) + let files = g#find kmodpath |> Array.to_list in + let test f = + let r m = sprintf ".*/%s\\.ko$" m |> Str.regexp in + let rmodules = List.map r modules in + let fold_f acc mr = acc || Str.string_match mr f 0 in + List.fold_left fold_f false rmodules in + let files = List.filter test files in + + (* create new initrd with contents of old initrd *) + let tmpdir = g#mkdtemp "/tmp/new_initrd-XXXXXX" in + let old_initrd =...

...odpath in > + > + (* find module files *) > + let files = g#find kmodpath |> Array.to_list in > + let test f = > + let r m = sprintf ".*/%s\\.ko$" m |> Str.regexp in > + let rmodules = List.map r modules in > + let fold_f acc mr = acc || Str.string_match mr f 0 in > + List.fold_left fold_f false rmodules in > + let files = List.filter test files in kernel.ki_modules contains already a list of modules for that kernel, so why are you searching for them again? > + (* create new initrd...