/openbsd/gnu/usr.bin/perl/ext/XS-APItest/t/ |
H A D | gv_autoload4.t | 21 ok my $glob = XS::APItest::gv_autoload_type(\%::, $sub, 1, $method); 22 *{$glob}{CODE}->( __PACKAGE__ . "::" . $sub, '$AUTOLOAD set correctly' ); 27 *{$glob}{CODE}->( __PACKAGE__ . "::" . $sub, '$AUTOLOAD set correctly' ); 32 ok $glob = XS::APItest::gv_autoload_type(\%::, $sub, 0, $method); 33 *{$glob}{CODE}->( __PACKAGE__ . "::" . $sub, "gv_autoload4() is nul-clean"); 35 ok $glob = XS::APItest::gv_autoload_type(\%::, $sub, 1, $method); 36 *{$glob}{CODE}->( __PACKAGE__ . "::" . $sub, "gv_autoload_sv() is nul-clean"); 38 ok $glob = XS::APItest::gv_autoload_type(\%::, $sub, 2, $method); 41 ok $glob = XS::APItest::gv_autoload_type(\%::, $sub, 3, $method); 42 *{$glob}{CODE}->( __PACKAGE__ . "::" . $sub, "gv_autoload_pvn() is nul-clean"); [all …]
|
H A D | newCONSTSUB.t | 30 my ($const, $glob) = 34 ok *{$glob}{CODE}; 36 ($const, $glob) = 39 ok *{$glob}{CODE}, "..and the glob,"; 42 ($const, $glob) = 45 ok *{$glob}{CODE}, "..and the glob,"; 94 ($const, $glob) = $sub->(\%::, $name, 0, Counter->new()); 99 *$glob = sub () {};
|
H A D | cv_name.t | 8 'cv_name with package sub via glob'); 18 is $ret, \$name, 'cv_name with package sub via glob returns 2nd argument'; 19 is ($name, 'main::bar', 'retval of cv_name w/pkg sub via glob & 2nd arg'); 34 'cv_name with package sub via glob (nq)'); 43 is $ret, \$name, 'cv_name with package sub via glob returns 2nd arg (nq)'; 44 is ($name, 'bar', 'retval of cv_name w/pkg sub via glob & 2nd arg (nq)');
|
H A D | svpv.t | 10 $g = *glob; 17 is &$func(*glob), '*main::glob', "$func(*glob)"; 18 is ref\$::{glob}, 'GLOB', "$func(*glob) does not flatten the glob";
|
/openbsd/gnu/usr.bin/perl/cpan/Test2-Suite/lib/Test2/Util/ |
H A D | Stash.pm | 100 my $glob = get_glob($sym); 101 return *{$glob}{$type} if $type ne 'SCALAR' && defined(*{$glob}{$type}); 104 return undef unless defined(*{$glob}{$type}); 109 return *{$glob}{$type} if eval "package $package; my \$y = $symbol; 1"; 112 return undef unless defined *{$glob}{$type}; 113 return *{$glob}{$type} if defined ${*{$glob}{$type}}; 117 my $sv = B::svref_2object($glob)->SV; 118 return *{$glob}{$type} if $sv->isa('B::SV'); 120 return *{$glob}{$type} if $B::specialsv_name[$$sv] ne 'Nullsv';
|
/openbsd/sys/dev/pci/drm/ttm/ |
H A D | ttm_device.c | 51 struct ttm_global *glob = &ttm_glob; in ttm_global_release() local 60 __free_page(glob->dummy_read_page); in ttm_global_release() 61 memset(glob, 0, sizeof(*glob)); in ttm_global_release() 68 struct ttm_global *glob = &ttm_glob; in ttm_global_init() local 96 if (unlikely(glob->dummy_read_page == NULL)) { in ttm_global_init() 101 INIT_LIST_HEAD(&glob->device_list); in ttm_global_init() 102 atomic_set(&glob->bo_count, 0); in ttm_global_init() 105 &glob->bo_count); in ttm_global_init() 121 struct ttm_global *glob = &ttm_glob; in ttm_global_swapout() local 193 struct ttm_global *glob = &ttm_glob; in ttm_device_init() local [all …]
|
/openbsd/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/ |
H A D | Scheduler.pm | 207 my ( $self, $glob ) = @_; 212 if ( $glob =~ /\G\*\*/gc ) { 217 elsif ( $glob =~ /\G\*/gc ) { 222 elsif ( $glob =~ /\G\?/gc ) { 227 elsif ( $glob =~ /\G\{/gc ) { 233 elsif ( $nesting and $glob =~ /\G,/gc ) { 238 elsif ( $nesting and $glob =~ /\G\}/gc ) { 244 elsif ( $glob =~ /\G(\\.)/gc ) { 249 elsif ( $glob =~ /\G([\},])/gc ) { 257 $glob =~ /\G([^{?*\\\},]*)/gc; [all …]
|
/openbsd/gnu/usr.bin/perl/ext/XS-APItest/ |
H A D | APItest.pm | 24 while (my ($sym_name, $glob) = each %$stash) { 27 next if *{$glob}{HASH}{'new'}; 29 next if *{$glob}{HASH}{AUTOLOAD}; 30 push @stashes, "$stash_name$sym_name", *{$glob}{HASH}; 31 } elsif (ref $glob eq 'SCALAR' || *{$glob}{CODE}) {
|
/openbsd/gnu/usr.bin/perl/ext/File-Glob/t/ |
H A D | rt131211.t | 3 # non-matching glob("a*a*a*...") went exponential time on number of a*'s 55 @no_files= glob catfile $path, "x".("a*" x $count) . "c"; 73 @got_files= glob catfile $path, "a*b*b*b*bc"; 77 @got_files= sort glob catfile $path, "a*b*b*bc"; 81 @got_files= sort glob catfile $path, "p*"; 85 @got_files= sort glob catfile $path, "r*???????"; 89 @got_files= sort glob catfile $path, "w*e*w??e"; 93 @got_files= sort glob catfile $path, "w*e*we??"; 97 @got_files= sort glob catfile $path, "w**e**w"; 101 @got_files= sort glob catfile $path, "*wee*"; [all …]
|
/openbsd/regress/bin/ksh/ |
H A D | glob.t | 1 name: glob-bad-1 3 Check that globbing isn't done when glob has syntax error 16 name: glob-bad-2 31 name: glob-range-1 53 name: glob-range-2 64 name: glob-range-3 74 name: glob-range-4 84 name: glob-range-5 100 name: glob-charclass-1 116 name: glob-charclass-2
|
/openbsd/gnu/usr.bin/perl/cpan/Test-Harness/t/ |
H A D | glob-to-regexp.t | 12 my ( $glob, $pattern, $name ) = /^(\S+)\t+(\S+)(?:\t+(.*))?$/; 14 push @tests, [ $glob, $pattern, $name ]; 20 my ( $glob, $pattern, $name ) = @$_; 21 is( TAP::Parser::Scheduler->_glob_to_regexp($glob), $pattern, 22 defined $name ? "$glob -- $name" : $glob
|
/openbsd/gnu/usr.bin/perl/dist/Attribute-Handlers/demo/ |
H A D | demo_chain.pl | 6 my ($glob, $sub) = @_[1,2]; 8 *$glob = sub { 15 my ($glob, $sub) = @_[1,2]; 17 *$glob = sub {
|
/openbsd/gnu/usr.bin/gcc/gcc/testsuite/g++.dg/opt/ |
H A D | reg-stack4.C | 15 double glob; variable 22 if (glob < 10) return; in track_match() 23 double p = glob*5; in track_match() 25 ext1 (vecdca.data-glob); in track_match()
|
/openbsd/gnu/usr.bin/perl/ext/File-Glob/ |
H A D | Changes | 7 - implemented first pass access to glob(3), 13 - s/glob/bsd_glob/ to avoid calling and including the 14 system's glob stuff 15 - added GLOB_DEBUG for (surprise!) glob debugging 16 - tainted all filenames returned from &Glob::BSD::glob 20 - renamed the glob flags to GLOB_* 31 glob
|
/openbsd/sbin/restore/ |
H A D | interactive.c | 75 glob_t glob; /* globbing information */ member 103 arglist.glob.gl_flags = GLOB_ALTDIRFUNC; in runcmdshell() 104 arglist.glob.gl_opendir = (void *)rst_opendir; in runcmdshell() 107 arglist.glob.gl_lstat = glob_stat; in runcmdshell() 108 arglist.glob.gl_stat = glob_stat; in runcmdshell() 115 globfree(&arglist.glob); in runcmdshell() 367 NULL, &ap->glob)) < 0) { in getcmd() 385 if (ap->glob.gl_pathc == 0) in getcmd() 388 ap->argcnt = ap->glob.gl_pathc; in getcmd() 391 strlcpy(name, ap->glob.gl_pathv[ap->glob.gl_pathc - ap->argcnt], in getcmd() [all …]
|
/openbsd/gnu/llvm/clang/utils/analyzer/ |
H A D | SATestBuild.py | 49 import glob 524 for full_file_name in glob.glob(directory + "/*"): 623 zip_files = list(glob.glob(directory + "/*.zip")) 723 failures = glob.glob(output_dir + "/*/failures/*.stderr.txt") 730 plists = glob.glob(output_dir + "/*/*.plist") 764 for file_to_rm in glob.glob(f"{output_dir}/*/*.{extension}"): 790 ref_list = glob.glob(ref_dir + "/*") 791 new_list = glob.glob(new_dir + "/*") 904 for plist in glob.glob(output_dir + "/*/*.plist"): 924 subdirs = glob.glob(output_dir + "/*")
|
/openbsd/gnu/usr.bin/perl/win32/bin/ |
H A D | search.pl | 310 local($glob) = @_; 311 local(@parts) = $glob =~ m/\\.|[*?]|\[]?[^]]*]|[^[\\*?]+/g; 355 foreach $glob (keys %skip) { 356 $i = defined($iskip{$glob}) ? 'i': ''; 357 push(@skip_test, '$name =~ m/'. &glob_to_regex($glob). "/$i"); 370 foreach $glob (keys %dskip) { 371 $i = defined($idskip{$glob}) ? 'i': ''; 372 push(@dskip_test, '$name =~ m/'. &glob_to_regex($glob). "/$i");
|
/openbsd/gnu/usr.bin/gcc/gcc/testsuite/gcc.c-torture/execute/ |
H A D | 960218-1.c | 1 int glob; variable 5 glob = x; in g() 19 if (glob != -4) in main()
|
/openbsd/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/ |
H A D | Author.pm | 62 my $glob = shift || ""; 83 if ($glob) { 85 $glob =~ s|/$|/*|; 86 my $rglob = Text::Glob::glob_to_regex($glob); 87 CPAN->debug("glob[$glob]rglob[$rglob]dl[@dl]") if $CPAN::DEBUG; 90 $rglob = Text::Glob::glob_to_regex("$glob/*");
|
/openbsd/gnu/usr.bin/gcc/gcc/testsuite/gcc.c-torture/unsorted/ |
H A D | consec.c | 1 int glob; variable 15 ((int *)glob)[2] = c; 16 ((int *)glob)[3] = d;
|
/openbsd/gnu/usr.bin/perl/cpan/Test-Simple/t/Legacy/ |
H A D | More.t | 187 my $glob = gensym; 188 is_deeply( $glob, $glob, 'the same glob' ); 190 is_deeply( { foo => $sub, bar => [1, $glob] }, 191 { foo => $sub, bar => [1, $glob] }
|
/openbsd/gnu/llvm/clang/tools/scan-build-py/tests/functional/cases/ |
H A D | test_from_cdb.py | 12 import glob 99 return len(glob.glob(os.path.join(directory, 'report-*.html'))) 103 return len(glob.glob(os.path.join(directory, 'report-*.plist'))) 107 return len(glob.glob(os.path.join(directory, 'result-*.sarif')))
|
/openbsd/gnu/llvm/libcxx/utils/ |
H A D | generate_header_tests.py | 4 import glob 128 …toplevel_headers = sorted(str(p.relative_to(include)) for p in include.glob('[a-z]*') if is_he… 129 …experimental_headers = sorted(str(p.relative_to(include)) for p in include.glob('experimental/[a-z… 130 …extended_headers = sorted(str(p.relative_to(include)) for p in include.glob('ext/[a-z]*') if i…
|
/openbsd/gnu/usr.bin/perl/cpan/Pod-Simple/t/ |
H A D | search29.t | 33 my $glob = '*z?k*'; 34 print "# Limiting to $glob\n"; 35 $x->limit_glob($glob);
|
H A D | search28.t | 33 my $glob = '*z*k*'; 34 print "# Limiting to $glob\n"; 35 $x->limit_glob($glob);
|