Add symlink support to Cwd::_vms_abs_path.

[perl5.git] / lib / h2xs.t

diff --git a/lib/h2xs.t b/lib/h2xs.t
index a59afa2..380f838 100644 (file)
--- a/lib/h2xs.t
+++ b/lib/h2xs.t
@@ -56,6 +56,7 @@ if ($^O eq 'MacOS') {
 my $name = 'h2xst';
 my $header = "$name.h";
 my $thisversion = sprintf "%vd", $^V;
+$thisversion =~ s/^v//;
 
 # If this test has failed previously a copy may be left.
 rmtree($name);