diff options
author | Junio C Hamano <gitster@pobox.com> | 2010-06-28 16:18:58 -0700 |
---|---|---|
committer | Junio C Hamano <gitster@pobox.com> | 2010-06-28 16:18:58 -0700 |
commit | d60ad81e6806c6dc8778fa3900caa8fd7c061fb4 (patch) | |
tree | bd5c9e92635960db7c84d7f3c8c21a925e30841e | |
parent | 339aec7acbd43f831ffc7dd193f53a34f918d4fb (diff) | |
parent | 64abcc48447a976884e74a1efd866a21e06ddeec (diff) | |
download | git-d60ad81e6806c6dc8778fa3900caa8fd7c061fb4.tar.gz git-d60ad81e6806c6dc8778fa3900caa8fd7c061fb4.tar.xz |
Merge branch 'pb/maint-perl-errmsg-no-dir' into maint
* pb/maint-perl-errmsg-no-dir:
Git.pm: better error message
-rw-r--r-- | perl/Git.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl/Git.pm b/perl/Git.pm index 1926dc9a4..6cb0dd193 100644 --- a/perl/Git.pm +++ b/perl/Git.pm @@ -172,7 +172,7 @@ sub repository { } if (defined $opts{Directory}) { - -d $opts{Directory} or throw Error::Simple("Directory not found: $!"); + -d $opts{Directory} or throw Error::Simple("Directory not found: $opts{Directory} $!"); my $search = Git->repository(WorkingCopy => $opts{Directory}); my $dir; @@ -545,7 +545,7 @@ sub wc_chdir { or throw Error::Simple("bare repository"); -d $self->wc_path().'/'.$subdir - or throw Error::Simple("subdir not found: $!"); + or throw Error::Simple("subdir not found: $subdir $!"); # Of course we will not "hold" the subdirectory so anyone # can delete it now and we will never know. But at least we tried. |