From 9594b326dcd6b879807fe6614f55ba50fa3d4551 Mon Sep 17 00:00:00 2001
From: Junio C Hamano <junkio@cox.net>
Date: Sat, 2 Sep 2006 22:58:32 -0700
Subject: Revert "Git.pm: Introduce fast get_object() method"

This reverts commit 3c479c37f8651d09e1d08b8d6ea9757164ee1235.
---
 perl/Git.pm | 18 ------------------
 perl/Git.xs | 24 ------------------------
 2 files changed, 42 deletions(-)

(limited to 'perl')

diff --git a/perl/Git.pm b/perl/Git.pm
index f2467bddbe..9da15e9c8c 100644
--- a/perl/Git.pm
+++ b/perl/Git.pm
@@ -572,24 +572,6 @@ sub ident_person {
 }
 
 
-=item get_object ( TYPE, SHA1 )
-
-Return contents of the given object in a scalar string. If the object has
-not been found, undef is returned; however, do not rely on this! Currently,
-if you use multiple repositories at once, get_object() on one repository
-_might_ return the object even though it exists only in another repository.
-(But do not rely on this behaviour either.)
-
-The method must be called on a repository instance.
-
-Implementation of this method is very fast; no external command calls
-are involved. That's why it is broken, too. ;-)
-
-=cut
-
-# Implemented in Git.xs.
-
-
 =item hash_object ( TYPE, FILENAME )
 
 =item hash_object ( TYPE, FILEHANDLE )
diff --git a/perl/Git.xs b/perl/Git.xs
index 226dd4f681..6ed26a29b8 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;
-- 
cgit v1.2.3