Whamcloud - gitweb
git://git.whamcloud.com
/
fs
/
lustre-release.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fixes for deliverables.
[fs/lustre-release.git]
/
lustre
/
obdclass
/
obdcontrol
diff --git
a/lustre/obdclass/obdcontrol
b/lustre/obdclass/obdcontrol
index
539a427
..
ceb889e
100755
(executable)
--- 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
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);
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
"$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);
my $rc = ioctl(DEV_OBD, &OBD_IOC_WRITE, $packed);
$retval = unpack("l", $packed);