diff options
| author | Craig A. Berry <craigberry@mac.com> | 2012-01-20 17:19:43 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2012-01-20 21:42:21 -0600 |
| commit | 102411b6b99d0bbca50835265fea29091f139c13 (patch) | |
| tree | 895a8a89e8f243d1507718576ca3148e4d52d130 /t/op/stat.t | |
| parent | f9cf141af97dff1d857ee2f905962a19ac97fc36 (diff) | |
| download | perl-102411b6b99d0bbca50835265fea29091f139c13.tar.gz | |
VMS-specific symlink tweak for stat.t
If the target of a symlink has a version number in the symlink,
that makes the symlink implementation unable to locate it, so
trim off the version.
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 _ }; |