Home
last modified time | relevance | path

Searched refs:gvname (Results 1 – 2 of 2) sorted by relevance

/mirbsd/src/gnu/usr.bin/perl/ext/B/B/
DC.pm983 my $gvname = $gv->NAME;
984 if ($gvname ne "__ANON__") {
987 $gvname : "$stashname\::$gvname";
989 if ($gvname eq "INIT"){
1062 my $gvname = $gv->NAME;
1063 my $fullname = $gv->STASH->NAME . "::" . $gvname;
1103 if( $gvname !~ /^([^A-Za-z]|STDIN|STDOUT|STDERR|ARGV|SIG|ENV)$/ ) {
1106 elsif( $gvname eq '!' ) {
/mirbsd/src/gnu/usr.bin/perl/
Dop.c6067 const char *gvname; in S_simplify_sort() local
6094 gvname = GvNAME(gv); in S_simplify_sort()
6095 if (*gvname == 'a' && gvname[1] == '\0') in S_simplify_sort()
6097 else if (*gvname == 'b' && gvname[1] == '\0') in S_simplify_sort()
6112 gvname = GvNAME(gv); in S_simplify_sort()
6114 ? !(*gvname == 'a' && gvname[1] == '\0') in S_simplify_sort()
6115 : !(*gvname == 'b' && gvname[1] == '\0')) in S_simplify_sort()