I assume the idea was to use the *cwd variables for testing.

p4raw-id: //depot/perl@19179

diff --git a/ext/Cwd/t/cwd.t b/ext/Cwd/t/cwd.t
index e035d28..3dc624c 100644 (file)
--- a/ext/Cwd/t/cwd.t
+++ b/ext/Cwd/t/cwd.t
@@ -66,10 +66,10 @@ SKIP: {
        my $getcwd     = getcwd;
        my $fastcwd    = fastcwd;
        my $fastgetcwd = fastgetcwd;
-       is(cwd(),       $start, 'cwd()');
-       is(getcwd(),    $start, 'getcwd()');
-       is(fastcwd(),   $start, 'fastcwd()');
-       is(fastgetcwd(),$start, 'fastgetcwd()');
+       is($cwd,        $start, 'cwd()');
+       is($getcwd,     $start, 'getcwd()');
+       is($fastcwd,    $start, 'fastcwd()');
+       is($fastgetcwd, $start, 'fastgetcwd()');
     }
 }