From af63b8a8a40beca5478a7e65bc8575d86e48410f Mon Sep 17 00:00:00 2001 From: braam Date: Fri, 3 Sep 1999 21:01:09 +0000 Subject: [PATCH] fixes for deliverables. --- lustre/obdclass/obdcontrol | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lustre/obdclass/obdcontrol b/lustre/obdclass/obdcontrol index 539a427..ceb889e 100755 --- a/lustre/obdclass/obdcontrol +++ b/lustre/obdclass/obdcontrol @@ -472,7 +472,7 @@ sub Read { die "suck" if (length($buf) != $count); # the perl we're using doesn't support pack type Q, and offset is 64 bits - my $packed = pack("ILpLLL", $::client_id, $inode, $buf, $count, 0, $offset); + my $packed = pack("ILpLLL", $::client_id, $inode, $buf, $count, $offset, 0); my $rc = ioctl(DEV_OBD, &OBD_IOC_READ, $packed); @@ -519,7 +519,7 @@ sub Write { "$inode...\n"); # the perl we're using doesn't support pack type Q - my $packed = pack("ILpLLL", $::client_id, $inode, $text, $count, 0, $offset); + my $packed = pack("ILpLLL", $::client_id, $inode, $text, $count, $offset, 0); my $rc = ioctl(DEV_OBD, &OBD_IOC_WRITE, $packed); $retval = unpack("l", $packed); -- 1.8.3.1