diff options
Diffstat (limited to 't/op/stat.t')
| -rw-r--r-- | t/op/stat.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/op/stat.t b/t/op/stat.t index df31a382cd..1fa0d2fae2 100644 --- a/t/op/stat.t +++ b/t/op/stat.t @@ -479,7 +479,9 @@ SKIP: { # bug id 20020124.004 # If we have d_lstat, we should have symlink() my $linkname = 'stat-' . rand =~ y/.//dr; - symlink $Perl, $linkname or die "# Can't symlink $0: $!"; + my $target = $Perl; + $target =~ s/;\d+\z// if $Is_VMS; # symlinks don't like version numbers + symlink $target, $linkname or die "# Can't symlink $0: $!"; lstat $linkname; -T _; eval { lstat _ }; |