diff options
author | Richard Jones <rjones@redhat.com> | 2010-03-25 19:39:07 +0000 |
---|---|---|
committer | Richard Jones <rjones@redhat.com> | 2010-03-25 19:40:48 +0000 |
commit | 8993116eec9b213a86a1b4d1defa94830a106818 (patch) | |
tree | e34e35edd82279241f9dee4254cb557780d7e813 /generator | |
parent | 97c3cd728eaa608ceb9c0f2db20a002b6dcccf02 (diff) | |
download | hivex-8993116eec9b213a86a1b4d1defa94830a106818.tar.gz hivex-8993116eec9b213a86a1b4d1defa94830a106818.tar.xz hivex-8993116eec9b213a86a1b4d1defa94830a106818.zip |
perl: Fix $h->value_value method when returning an empty value.
Previously this didn't correctly return an empty registry
value. In this case the length argument to newSVpv would
be 0 which tells Perl to try to calculate the length (we
want newSVpvn instead).
Diffstat (limited to 'generator')
-rwxr-xr-x | generator/generator.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generator/generator.ml b/generator/generator.ml index 230b66b..96d198d 100755 --- a/generator/generator.ml +++ b/generator/generator.ml @@ -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 -> |