From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Fri, 5 Jul 1996 01:59:56 +0000 (+0000)
Subject: Reflect fix to "truncate" in opcode.pl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0d3ca1e56bd1b0bddcf00c0bc57292a84faa3c8d;p=p5sagit%2Fp5-mst-13.2.git

Reflect fix to "truncate" in opcode.pl
---

diff --git a/opcode.h b/opcode.h
index b13849d..01dd521 100644
--- a/opcode.h
+++ b/opcode.h
@@ -2344,7 +2344,7 @@ EXT U32 opargs[] = {
 	0x00000e14,	/* eof */
 	0x00000e0c,	/* tell */
 	0x00011604,	/* seek */
-	0x00001114,	/* truncate */
+	0x00001614,	/* truncate */
 	0x0001160c,	/* fcntl */
 	0x0001160c,	/* ioctl */
 	0x0000161c,	/* flock */