[Bps-public-commit] TAP-Harness-Remote branch, master, updated. 9835fefd7f2e607df7cc68c999c58ea4369e05b0

[sartak at bestpractical.com]

The branch, master has been updated
       via  9835fefd7f2e607df7cc68c999c58ea4369e05b0 (commit)
      from  28b7dd3bdd1325680a9d684b3f76175769f92088 (commit)

Summary of changes:
 lib/TAP/Harness/Remote.pm |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

- Log -----------------------------------------------------------------
commit 9835fefd7f2e607df7cc68c999c58ea4369e05b0
Author: Shawn M Moore <sartak at gmail.com>
Date:   Mon Nov 9 15:09:55 2009 -0500

    Throw a more useful error for being outside testing roots

diff --git a/lib/TAP/Harness/Remote.pm b/lib/TAP/Harness/Remote.pm
index 9c6f161..80cdbf8 100644
--- a/lib/TAP/Harness/Remote.pm
+++ b/lib/TAP/Harness/Remote.pm
@@ -104,9 +104,10 @@ sub new {
 
     # Find which testing root we're under
 
+    my $cwd = Cwd::cwd;
     die
-        "Current path isn't inside of local testing roots (@{$self->remote_config('local')})\n"
-        unless defined $self->rewrite_path( Cwd::cwd );
+        "Current path ($cwd) isn't inside of local testing roots (@{$self->remote_config('local')})\n"
+        unless defined $self->rewrite_path($cwd);
 
     die "Testing host not defined\n"
         unless grep { defined and not /\.example\.com$/ }

-----------------------------------------------------------------------