sha1_file: allow sha1_file_name to handle arbitrary repositories

diff --git a/perl/Git.pm b/perl/Git.pm
index 65e6b32a0f6401bd749ea26700a3f59939db2aa5..9d60d7948b22254e6f61cc0d984b4ef40f27bc4f 100644 (file)
--- a/perl/Git.pm
+++ b/perl/Git.pm
@@ -101,7 +101,7 @@ =head1 DESCRIPTION
 
 
 use Carp qw(carp croak); # but croak is bad - throw instead
-use Error qw(:try);
+use Git::Error qw(:try);
 use Cwd qw(abs_path cwd);
 use IPC::Open2 qw(open2);
 use Fcntl qw(SEEK_SET SEEK_CUR);