for-each-ref: avoid loading objects to print %(objectname)

diff --git a/perl/Git.pm b/perl/Git.pm
index dc48159ccab1cf2f888a6169460c5fc60d0d1bab..7a252ef872c92213c8dcd2144a84cdcf787e586a 100644 (file)
--- a/perl/Git.pm
+++ b/perl/Git.pm
@@ -1265,7 +1265,7 @@ sub _temp_cache {
                        $tmpdir = $self->repo_path();
                }
 
-               ($$temp_fd, $fname) = File::Temp->tempfile(
+               ($$temp_fd, $fname) = File::Temp::tempfile(
                        'Git_XXXXXX', UNLINK => 1, DIR => $tmpdir,
                        ) or throw Error::Simple("couldn't open new temp file");