[PATCH] t9700-perl-git.sh: Fix a test failure on cygwin

From: Ramsay Jones <ramsay@ramsay1.demon.co.uk>
Date: Aug 27, 2008, 18:09 UTC
Message-ID: <48B5984B.4020901@ramsay1.demon.co.uk>

Signed-off-by: Ramsay Jones <ramsay@ramsay1.demon.co.uk>
---

This patch fixes the t9700 test failure on cygwin. Don't ask me to explain why the original test.pl fails on cygwin, but passes on Linux!

My perl version:

    $ perl --version

    This is perl, v5.8.7 built for cygwin-thread-multi-64int
    (with 1 registered patch, see perl -V for more detail)

    Copyright 1987-2005, Larry Wall

    Perl may be copied only under the terms of either the Artistic License or the
    GNU General Public License, which may be found in the Perl 5 source kit.

    Complete documentation for Perl, including FAQ lists, should be found on
    this system using `man perl' or `perldoc perl'.  If you have access to the
    Internet, point your browser at http://www.perl.org/, the Perl Home Page.
    $

[My perl version on Linux is whatever comes with Ubuntu 7.04]

ATB,

Ramsay Jones

 t/t9700/test.pl |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/t9700/test.pl b/t/t9700/test.pl
index 4d23125..6d59356 100755
--- a/t/t9700/test.pl
+++ b/t/t9700/test.pl
@@ -15,9 +15,9 @@ BEGIN { use_ok('Git') }
 
 # set up
 our $repo_dir = "trash directory";
-our $abs_repo_dir = Cwd->cwd;
+our $abs_repo_dir = cwd();
 die "this must be run by calling the t/t97* shell script(s)\n"
-    if basename(Cwd->cwd) ne $repo_dir;
+    if basename($abs_repo_dir) ne $repo_dir;
 ok(our $r = Git->repository(Directory => "."), "open repository");
 
 # config

-- 
1.6.0