Git.pm: Swap hash_object() parameters

I'm about to introduce get_object() and it will be better for consistency
if the object type always goes first. And writing 'blob' there explicitly
is not much bother.

Signed-off-by: Petr Baudis <pasky@suse.cz>
Signed-off-by: Junio C Hamano <junkio@cox.net>

diff --git a/perl/Git.pm b/perl/Git.pm
index 61730430f52d58609fdbd7059b54e80d69ba5203..5ec7ef8c246bdcfab725490ce383fee083ff8f82 100644 (file)
--- a/perl/Git.pm
+++ b/perl/Git.pm
@@ -485,13 +485,13 @@ sub wc_chdir {
 }
 
 
-=item hash_object ( FILENAME [, TYPE ] )
+=item hash_object ( TYPE, FILENAME )
 
-=item hash_object ( FILEHANDLE [, TYPE ] )
+=item hash_object ( TYPE, FILEHANDLE )
 
 Compute the SHA1 object id of the given C<FILENAME> (or data waiting in
-C<FILEHANDLE>) considering it is of the C<TYPE> object type (C<blob>
-(default), C<commit>, C<tree>).
+C<FILEHANDLE>) considering it is of the C<TYPE> object type (C<blob>,
+C<commit>, C<tree>).
 
 In case of C<FILEHANDLE> passed instead of file name, all the data
 available are read and hashed, and the filehandle is automatically

diff --git a/perl/Git.xs b/perl/Git.xs
index 8b06ebfae9e7b96c71a2fb03851d99b76ee88ec6..3030ba9ab55e05a6a0debc18e634e25c0a8e6ece 100644 (file)
--- a/perl/Git.xs
+++ b/perl/Git.xs
@@ -104,9 +104,9 @@ CODE:
 }
 
 char *
-xs_hash_object(file, type = "blob")
-       SV *file;
+xs_hash_object(type, file)
        char *type;
+       SV *file;
 CODE:
 {
        unsigned char sha1[20];