X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=generator%2Fgenerator.ml;h=96d198d736b7d853aa6cb4dd7208111f892b9c25;hb=4f76446b53e526e169c3385f65af4fa187b71142;hp=7728973f69f7b5b6883e297dc9b50a2887b2e096;hpb=ed7b31aa62abd7ffa77f402f3b74cccad369d0a5;p=hivex.git

diff --git a/generator/generator.ml b/generator/generator.ml
index 7728973..96d198d 100755
--- a/generator/generator.ml
+++ b/generator/generator.ml
@@ -1923,7 +1923,7 @@ XSLoader::load ('Win::Hivex');
 
 =item open
 
- $h = Win::Hivex::open ($filename,";
+ $h = Win::Hivex->open ($filename,";
 
   List.iter (
     fun (_, flag, _) ->
@@ -2415,7 +2415,7 @@ DESTROY (h)
 	     pr "      size_t len;\n";
 	     pr "      hive_type type;\n";
 	     pr " PPCODE:\n";
-             pr "      r = hivex_%s (%s, &len, &type);\n"
+             pr "      r = hivex_%s (%s, &type, &len);\n"
 	       name (String.concat ", " c_params);
 	     free_args ();
              pr "      if (r == -1)\n";
@@ -2431,7 +2431,7 @@ DESTROY (h)
 	     pr "      size_t len;\n";
 	     pr "      hive_type type;\n";
 	     pr " PPCODE:\n";
-             pr "      r = hivex_%s (%s, &len, &type);\n"
+             pr "      r = hivex_%s (%s, &type, &len);\n"
 	       name (String.concat ", " c_params);
 	     free_args ();
              pr "      if (r == NULL)\n";
@@ -2439,7 +2439,7 @@ DESTROY (h)
 	       name;
 	     pr "      EXTEND (SP, 2);\n";
 	     pr "      PUSHs (sv_2mortal (newSViv (type)));\n";
-	     pr "      PUSHs (sv_2mortal (newSVpv (r, len)));\n";
+	     pr "      PUSHs (sv_2mortal (newSVpvn (r, len)));\n";
 	     pr "      free (r);\n";
 
 	 | RInt64 ->