X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/27df23140def00922ce186da623f2c3724e0b36a..9960802c2b6f4b61c0c7ce718f3ce247a3a13bf1:/vms/vms.c

diff --git a/vms/vms.c b/vms/vms.c
index 9ca1e96..7801873 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -655,8 +655,8 @@ int scnt;
 	    if (scnt == 4) {
 		unsigned int c1, c2;
 		scnt = sscanf(inspec, "%2x%2x", &c1, &c2);
-		outspec[0] == c1 & 0xff;
-		outspec[1] == c2 & 0xff;
+		outspec[0] = c1 & 0xff;
+		outspec[1] = c2 & 0xff;
 		if (scnt > 1) {
 		    (*output_cnt) += 2;
 		    count += 4;