aboutsummaryrefslogtreecommitdiffstats
path: root/g10/build-packet.c
diff options
context:
space:
mode:
Diffstat (limited to 'g10/build-packet.c')
-rw-r--r--g10/build-packet.c5
1 files changed, 5 insertions, 0 deletions
diff --git a/g10/build-packet.c b/g10/build-packet.c
index 4db1d5830..7eceda0e7 100644
--- a/g10/build-packet.c
+++ b/g10/build-packet.c
@@ -491,9 +491,14 @@ do_plaintext( IOBUF out, int ctb, PKT_plaintext *pt )
wipememory(buf,1000); /* burn the buffer */
if( (ctb&0x40) && !pt->len )
iobuf_set_partial_block_mode(out, 0 ); /* turn off partial */
+
+ /* On VMS, byte counts will not match for some file record
+ * formats, so it's best to disable the following error. */
+#ifndef __VMS
if( pt->len && n != pt->len )
log_error("do_plaintext(): wrote %lu bytes but expected %lu bytes\n",
(ulong)n, (ulong)pt->len );
+#endif
return rc;
}