1 files changed, 16 insertions, 0 deletions
diff --git a/application b/application
new file mode 100755
index 0000000000..53313fbb0e
--- /dev/null
+++ b/application
@@ -0,0 +1,16 @@
+#!/usr/bin/perl -w
+use strict;
+
+my $range = shift;
+
+my %app;
+foreach (`git diff --name-only $range`) {
+    if (m@lib/([^/]*)@) {
+	$app{$1} = 1;
+    } elsif (m@erts/@) {
+	$app{erts} = 1;
+    } else {
+	$app{otp} = 1;
+    }
+}
+print join(', ', sort keys %app), "\n";