diff options
Diffstat (limited to 'perl/Git.xs')
-rw-r--r-- | perl/Git.xs | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/perl/Git.xs b/perl/Git.xs index 226dd4f68..6ed26a29b 100644 --- a/perl/Git.xs +++ b/perl/Git.xs @@ -111,30 +111,6 @@ CODE: free((char **) argv); } - -SV * -xs_get_object(type, id) - char *type; - char *id; -CODE: -{ - unsigned char sha1[20]; - unsigned long size; - void *buf; - - if (strlen(id) != 40 || get_sha1_hex(id, sha1) < 0) - XSRETURN_UNDEF; - - buf = read_sha1_file(sha1, type, &size); - if (!buf) - XSRETURN_UNDEF; - RETVAL = newSVpvn(buf, size); - free(buf); -} -OUTPUT: - RETVAL - - char * xs_hash_object_pipe(type, fd) char *type; |