From: braam <braam>
Date: Fri, 3 Sep 1999 21:01:09 +0000 (+0000)
Subject: fixes for deliverables.
X-Git-Tag: v1_7_100~6189
X-Git-Url: https://git.whamcloud.com/?p=fs%2Flustre-release.git;a=commitdiff_plain;h=af63b8a8a40beca5478a7e65bc8575d86e48410f

fixes for deliverables.
---

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);