X-Git-Url: https://git.whamcloud.com/?p=fs%2Flustre-release.git;a=blobdiff_plain;f=lustre%2Fobdclass%2Fobdcontrol;h=ceb889ed8cfc1fd1151a03cec7959f5d17330550;hp=539a427f289461d0b9076cf95a154056062aef27;hb=af63b8a8a40beca5478a7e65bc8575d86e48410f;hpb=fc27fd73f3a22f9b8d819948f143c2537179b1c8

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