diff options
Diffstat (limited to 'tests/scripts/options/symlinks')
-rw-r--r-- | tests/scripts/options/symlinks | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/scripts/options/symlinks b/tests/scripts/options/symlinks index 83dc84fb..8886b2fc 100644 --- a/tests/scripts/options/symlinks +++ b/tests/scripts/options/symlinks @@ -15,8 +15,9 @@ use File::Spec; &utouch(-10, 'dep'); &utouch(-5, 'targ'); -$dirnm = (File::Spec->splitdir($cwddir))[-1]; -symlink(File::Spec->catfile(File::Spec->updir(), $dirnm, 'dep'), 'sym'); +my $dirnm = (File::Spec->splitdir($testpath))[-1]; +my $dep = File::Spec->catfile(File::Spec->updir(), $dirnm, 'dep'); +symlink($dep, 'sym') or die "Cannot create symlink sym -> $dep\n"; # Without -L, nothing should happen # With -L, it should update targ |