From 4f1c228e643288c41d7d18c1bbe85f21f67f95e7 Mon Sep 17 00:00:00 2001
From: Sage Weil <sage@newdream.net>
Date: Sat, 2 Aug 2008 21:20:11 -0700
Subject: [PATCH] check_dendl.pl script

---
 src/script/check_dendl.pl | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100755 src/script/check_dendl.pl

diff --git a/src/script/check_dendl.pl b/src/script/check_dendl.pl
new file mode 100755
index 0000000000000..b57bc0c061a68
--- /dev/null
+++ b/src/script/check_dendl.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+
+my $in = 0;
+my $line = 1;
+while (<>) {
+    chomp;
+    my $l = $_;
+    my @w = split(/\s+/, $_);
+    for (@w) {
+	if (/^(\/\/)?dout\(\s*\-?\s*\d+\s*\)$/) {
+	    warn "$line: dout without dendl: $l\n" if $in;
+	    $in = 1;
+	}
+	elsif (/^derr\(\s*\-?\s*\d+\s*\)$/) {
+	    warn "$line: dout without dendl: $l\n" if $in;
+	    $in = 1;
+	}
+	elsif (/^dendl/) {
+	    warn "$line: dendl without dout: $l\n" unless $in;
+	    $in = 0;
+	}
+    }
+    $line++;
+}
-- 
2.39.5