From ee6a29d3a3009ac2ee4a80a1e471b5a9796247af Mon Sep 17 00:00:00 2001
From: Marty Kraimer <mrkraimer@comcast.net>
Date: Fri, 12 Jun 1998 18:42:26 +0000
Subject: [PATCH] For -l command strip App and Boot from names

---
 src/makeBaseApp/makeBaseApp.pl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/makeBaseApp/makeBaseApp.pl b/src/makeBaseApp/makeBaseApp.pl
index 36a990243..50126ef3c 100755
--- a/src/makeBaseApp/makeBaseApp.pl
+++ b/src/makeBaseApp/makeBaseApp.pl
@@ -224,11 +224,13 @@ sub ListAppTypes { # no args
     print "Valid application types are:\n";
     foreach $name (<$top/*App>) {
 	$name =~ s|$top/||;
+	$name =~ s|App||;
 	printf "\t$name\n";
     }
     print "Valid iocBoot types are:\n";
     foreach $name (<$top/*Boot>) {
 	$name =~ s|$top/||;
+	$name =~ s|Boot||;
 	printf "\t$name\n";
     }
 }