Whamcloud - gitweb
git://git.whamcloud.com
/
fs
/
lustre-release.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
fc27fd7
)
fixes for deliverables.
author
braam
<braam>
Fri, 3 Sep 1999 21:01:09 +0000
(21:01 +0000)
committer
braam
<braam>
Fri, 3 Sep 1999 21:01:09 +0000
(21:01 +0000)
lustre/obdclass/obdcontrol
patch
|
blob
|
history
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);