From: Perl 5 Porters Date: Fri, 5 Jul 1996 01:58:34 +0000 (+0000) Subject: "truncate" should expect file handle as first argument X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5e9dbca773ee977716cf95056b1cd73811d3698a;p=p5sagit%2Fp5-mst-13.2.git "truncate" should expect file handle as first argument --- diff --git a/opcode.pl b/opcode.pl index fddf646..2c2bc50 100755 --- a/opcode.pl +++ b/opcode.pl @@ -477,7 +477,7 @@ recv recv ck_fun imst F R S S eof eof ck_eof is F? tell tell ck_fun st F? seek seek ck_fun s F S S -truncate truncate ck_trunc is S S +truncate truncate ck_trunc is F S fcntl fcntl ck_fun st F S S ioctl ioctl ck_fun st F S S