From 8de959476f3344426174d3d70df09590ce39b736 Mon Sep 17 00:00:00 2001
From: Sitaram Chamarty <sitaram@atc.tcs.com>
Date: Sun, 25 Mar 2012 11:06:28 +0530
Subject: [PATCH] fixup: new check-g2-compat, lots of migration related changes

---
 check-g2-compat | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/check-g2-compat b/check-g2-compat
index 48472c1..8fd1e3b 100755
--- a/check-g2-compat
+++ b/check-g2-compat
@@ -85,3 +85,12 @@ sub repo {
         msg( WARNING => "found " . scalar(@perms) . " gl-perms files with R or RW; see docs" );
     }
 }
+
+sub msg {
+    my ( $type, $text ) = @_;
+    print "$type" if $type;
+    print "\t$text\n";
+    exit 1 if $type eq 'FATAL';
+
+    $count{$type}++ if $type;
+}