mirror of
https://github.com/ceph/ceph
synced 2025-02-09 12:00:04 +00:00
9213a23f14
git-svn-id: https://ceph.svn.sf.net/svnroot/ceph@1138 29311d96-e01e-0410-9327-a35deaab8ce9
35 lines
671 B
Perl
Executable File
35 lines
671 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
my %op;
|
|
|
|
my $line = 0;
|
|
while (<>) {
|
|
#print $line . $_ if /0x8d4f6a0/;
|
|
chomp;
|
|
$line++;
|
|
|
|
#bdev(./ebofsdev/0)._submit_io bio(wr 269~1 usemap 0x4de33cc0)
|
|
if (my ($bio) = /_submit_io bio\(.*(0x\w+)\)/) {
|
|
$op{$bio} = $line;
|
|
}
|
|
|
|
# cancel
|
|
#bdev(./ebofsdev/3)._cancel_io bio(wr 1525~1 bh_write 0x8a437b8)
|
|
if (my ($bio) = /_cancel_io bio\(.*(0x\w+)\)/ &&
|
|
!(/FAILED/)) {
|
|
delete $op{$bio};
|
|
}
|
|
|
|
# finish
|
|
#bdev(./ebofsdev/3).complete_thread finishing bio(wr 1131~1 write_cnode 0x832c1f8)
|
|
if (my ($bio) = /complete_thread finishing bio\(.*(0x\w+)\)/) {
|
|
delete $op{$bio};
|
|
}
|
|
|
|
}
|
|
|
|
for my $bio (keys %op) {
|
|
print "---- lost bio $bio\n";
|
|
}
|