symlink() wrapper for VMS that prevents the creation of symlinks

[perl5.git] / vms / test.com

diff --git a/vms/test.com b/vms/test.com
index 3c76b1e..63573f2 100644 (file)
--- a/vms/test.com
+++ b/vms/test.com
@@ -59,7 +59,7 @@ $       EndIf
 $   EndIf
 $!
 $!  Pick up a copy of perl to use for the tests
-$   If F$Search("Perl.").nes."" Then Delete/Log/NoConfirm Perl'exe';*
+$   If F$Search("Perl''exe'").nes."" Then Delete/Log/NoConfirm Perl'exe';*
 $   If PERL_TEST_DRIVER .eqs. "minitest"
 $   Then
 $       Copy/Log/NoConfirm [-]miniperl'exe' []Perl'exe'