Lines Matching refs:subsystem

47 my $subsystem = 0;
214 		'subsystem!' => \$subsystem,
253     $subsystem = 0;
258     my $selections = $email + $scm + $status + $subsystem + $web;
482 my @subsystem = ();
504 if ($subsystem) {
505     @subsystem = uniq(@subsystem);
506     output(@subsystem);
560     @subsystem = ();
949     my $subsystem = $typevalue[$start];
950     if (length($subsystem) > 20) {
951 	$subsystem = substr($subsystem, 0, 17);
952 	$subsystem =~ s/\s*$//;
953 	$subsystem = $subsystem . "...";
982     return $role . ":" . $subsystem;
992     my $subsystem = $typevalue[$start];
993     if (length($subsystem) > 20) {
994 	$subsystem = substr($subsystem, 0, 17);
995 	$subsystem =~ s/\s*$//;
996 	$subsystem = $subsystem . "...";
999     if ($subsystem eq "THE REST") {
1000 	$subsystem = "";
1003     return $subsystem;
1013     push(@subsystem, $typevalue[$start]);