For -l command strip App and Boot from names

1998-06-12 18:42:26 +00:00
parent 3711d3ad06
commit ee6a29d3a3
1 changed files with 2 additions and 0 deletions
--- 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";
    }
 }