mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-22 07:03:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

customize: perl_edit: Type of Guestfs_val() param is a Guestfs.t not the object wrapper.

Browse Source 
This fixes commit c6b7e6cdda.
This commit is contained in:
Richard W.M. Jones
2014-08-31 13:35:33 +01:00
parent 94cffee541
commit 1fb19fcad3
4 changed files with 6 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
customize/customize_run.ml
View File

@@ -193,7 +193,7 @@ exec >>%s 2>&1
exit 1
);
Perl_edit.edit_file ~verbose g path expr
Perl_edit.edit_file ~verbose g#ocaml_handle path expr
| `FirstbootCommand cmd ->
incr i;

7
customize/perl_edit-c.c
View File

@@ -38,14 +38,13 @@
#pragma GCC diagnostic ignored "-Wmissing-prototypes"
value
virt_customize_edit_file_perl (value verbosev, value guestfsv, value filev,
virt_customize_edit_file_perl (value verbosev, value gv, value filev,
value exprv)
{
CAMLparam4 (verbosev, guestfsv, filev, exprv);
CAMLparam4 (verbosev, gv, filev, exprv);
int r;
guestfs_h *g;
guestfs_h *g = Guestfs_val (gv);
g = Guestfs_val (guestfsv);
r = edit_file_perl (g, String_val (filev), String_val (exprv), NULL,
Bool_val (verbosev));
if (r == -1)

2
customize/perl_edit.ml
View File

@@ -16,5 +16,5 @@
* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
*)
external edit_file : verbose:bool -> Guestfs.guestfs -> string -> string -> unit
external edit_file : verbose:bool -> Guestfs.t -> string -> string -> unit
= "virt_customize_edit_file_perl"

2
customize/perl_edit.mli
View File

@@ -16,4 +16,4 @@
* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
*)
val edit_file : verbose:bool -> Guestfs.guestfs -> string -> string -> unit
val edit_file : verbose:bool -> Guestfs.t -> string -> string -> unit