perl 5.003_02: [no incremental changelog available]

1 files changed, 1 insertions, 1 deletions

diff --git a/vms/vms.c b/vms/vms.c
index 9c8fd1f2d1..5531b476ea 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -349,7 +349,7 @@ kill_file(char *name)
      * VMS seem to return success on the unlock operation anyhow (after all
      * the unlock is successful), but others don't.
      */
-    if (fndsts == RMS$_FNF || fndsts == SS$_NOSUCHOBJECT) fndsts == SS$_NORMAL;
+    if (fndsts == RMS$_FNF || fndsts == SS$_NOSUCHOBJECT) fndsts = SS$_NORMAL;
     if (aclsts & 1) aclsts = fndsts;
     if (!(aclsts & 1)) {
       set_errno(EVMSERR);