Searched refs:enumname_prefix (Results 1 – 1 of 1) sorted by relevance
18 my $enumname_prefix; # prefix of $enumname370 $enumname_prefix = $enumlong;371 $enumname_prefix =~ s/$enumshort$//;383 $enumname_prefix = $enumname;384 $enumname_prefix =~ s/^([A-Z][a-z]*).*$/$1/;385 $enumname_prefix = uc($enumname_prefix);417 $prod =~ s/\@ENUMPREFIX\@/$enumname_prefix/g;435 $prod =~ s/\@ENUMPREFIX\@/$enumname_prefix/g;473 $prod =~ s/\@ENUMPREFIX\@/$enumname_prefix/g;