sha1_file: add repository argument to sha1_loose_object_info

diff --git a/perl/Git/Error.pm b/perl/Git/Error.pm
index 5874672150697c2a978f6327d6b60077bfadac5d..09bbc9739096f9e5c9b26e8f24d9836329891bf3 100644 (file)
--- a/perl/Git/Error.pm
+++ b/perl/Git/Error.pm
@@ -39,7 +39,7 @@ sub import {
        require Error;
     };
 
-    local @_ = ($caller, @_);
+    unshift @_, $caller;
     goto &Error::import;
 }