| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/ |
| Memoize.t | 19 sub exists { my ($key, $dir) = @_; return -f File::Spec->catfile($dir, $key) } subroutine
23 tie my %hash, 'Tie::Memoize', \&slurp, $directory, \&exists,
27 ok(not exists $hash{'strict.pm'});
28 ok(exists $hash{known_to_exist});
31 ok(exists $hash{known_to_exist});
32 ok(not exists $hash{'strict.pm'});
35 ok(not exists $hash{known_to_exist});
36 ok(not exists $hash{'strict.pm'});
41 ok(not exists $hash{'strict.pm'});
42 ok(exists $hash{'blib.pm'})
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| exists_sub.t | 22 print "not " unless exists &t1 && not defined &t1;
24 print "not " unless exists &t2 && not defined &t2;
26 print "not " unless exists &t3 && not defined &t3;
28 print "not " unless exists &t4 && not defined &t4;
30 print "not " unless exists &t5 && defined &t5;
33 print "not " unless not exists &P2::tmc && not defined &P2::tmc;
37 print "not " unless exists &{$ref->{A}[0]} && not defined &{$ref->{A}[0]};
40 print "not " unless exists &P1::tmc && not defined &P1::tmc;
42 eval 'exists &t5()';
|
| inccode.t | 49 ok( exists $INC{'Foo.pm'}, ' %INC sees Foo.pm' );
56 ok( exists $INC{'Foo1.pm'}, ' %INC sees Foo1.pm' );
63 ok( exists $INC{'Foo2.pl'}, ' %INC sees Foo2.pl' );
92 ok( exists $INC{'Bar.pm'}, ' %INC sees Bar.pm' );
97 ok( exists $INC{'Bar1.pm'}, ' %INC sees Bar1.pm' );
102 ok( exists $INC{'Bar2.pl'}, ' %INC sees Bar2.pl' );
124 ok( exists $INC{'Quux.pm'}, ' %INC sees Quux.pm' );
137 ok( exists $INC{'Quux1.pm'}, ' %INC sees Quux1.pm' );
150 ok( exists $INC{'Quux2.pm'}, ' %INC sees Quux2.pm' );
171 ok( exists $INC{'Toto.pm'}, ' %INC sees Toto.pm' )
[all...] |
| local.t | 133 sub EXISTS { print "# EXISTS [@_]\n"; exists $_[0]->{$_[1]}; }
245 print "not " if exists $x{b};
248 print "not " if exists $x{c};
256 print "not " if exists $h{'y'}; print "ok 72\n";
257 print "not " if exists $h{'z'}; print "ok 73\n";
258 print "not " if exists $ENV{_A_}; print "ok 74\n";
259 print "not " if exists $ENV{_B_}; print "ok 75\n";
|
| delete.t | 16 unless (exists $foo{2}) {print "ok 2\n";} else {print "not ok 2 $foo{2}\n";}
27 unless (exists $foo{4}) {print "ok 10\n";} else {print "not ok 10 $foo{4}\n";}
28 unless (exists $foo{5}) {print "ok 11\n";} else {print "not ok 11 $foo{5}\n";}
75 unless (exists $foo[2]) {print "ok 19\n";} else {print "not ok 19 $foo[2]\n";}
86 unless (exists $foo[4]) {print "ok 27\n";} else {print "not ok 27 $foo[4]\n";}
87 unless (exists $foo[5]) {print "ok 28\n";} else {print "not ok 28 $foo[5]\n";}
|
| /onnv/onnv-gate/usr/src/cmd/perl/contrib/Sun/Solaris/Intrs/ |
| Makefile.PL | 41 DEFINE => exists($ENV{RELEASE_BUILD}) ? '-DNDEBUG' : '',
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Getopt/Long/t/ |
| gol-linkage.t | 24 print (!(exists $lnk{baR}) ? "" : "not ", "ok 8\n");
37 print (!(exists $lnk{foo}) ? "" : "not ", "ok 16\n");
38 print (!(exists $lnk{baR}) ? "" : "not ", "ok 17\n");
39 print (!(exists $lnk{bar}) ? "" : "not ", "ok 18\n");
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/comp/ |
| hints.t | 13 print "not " if exists $^H{foo};
41 print "not " if exists $^H{foo};
46 print "not " if exists $^H{foo};
59 print "not " if exists $^H{foo};
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/File/t/ |
| 17_misc_meth.t | 4 # EXTEND, CLEAR, DELETE, EXISTS
33 # (11-20) EXISTS
36 print !exists $a[0] ? "ok $N\n" : "not ok $N\n";
39 print exists $a[0] ? "ok $N\n" : "not ok $N\n";
41 print !exists $a[1] ? "ok $N\n" : "not ok $N\n";
44 print exists $a[0] ? "ok $N\n" : "not ok $N\n";
46 # exists $a[1] is not defined by this module under these circumstances
47 print exists $a[1] ? "ok $N\n" : "ok $N\n";
49 print exists $a[2] ? "ok $N\n" : "not ok $N\n";
51 print exists $a[-1] ? "ok $N\n" : "not ok $N\n"
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| Config.t | 31 ok( exists $Config{cc}, "has cc");
33 ok( exists $Config{ccflags}, "has ccflags");
35 ok(!exists $Config{python}, "has no python");
37 ok( exists $Config{d_fork}, "has d_fork");
39 ok(!exists $Config{d_bork}, "has no d_bork");
51 ok(exists $Config{ccflags_nolargefiles}, "has ccflags_nolargefiles");
91 ok(!exists $Config{d_bork}, "still no d_bork");
97 ok( exists $Config{d_fork}, "still d_fork");
103 ok( exists $Config{d_fork}, "still d_fork");
|
| autouse.t | 54 ok( !exists $INC{$mod_file} );
56 ok( exists $INC{$mod_file} );
|
| Symbol.t | 72 ok( exists $::{'Transient::'}, 'transient stash exists' );
75 ok( !exists $Transient::{variable}, 'transient variable no longer in stash' );
77 ok( !exists $::{'Transient::'}, 'no transient stash' );
|
| /onnv/onnv-gate/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/Catalog/ |
| Catalog.pm | 83 if (exists($_Constants{catlg}{name}{$cat}));
145 if (! exists($_Constants{type}{$which}{$t}));
150 if (! exists($_Constants{catlg}{$which}{$c}));
155 if (! exists($_Constants{id}{value}{$c}{$which}{$d}));
188 $t = _double_type($t, exists($_Constants{type}{value}{$t})
194 exists($_Constants{catlg}{value}{$c})
200 exists($_Constants{id}{value}{int($c)}{value}{$d})
224 $t = _double_type($t, exists($_Constants{type}{value}{$t})
238 $c = _double_type($c, exists($_Constants{catlg}{value}{$c})
256 $d = _double_type($d, exists($_Constants{id}{value}{$c}{value}{$d}
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/contrib/Sun/Solaris/Lgrp/ |
| Makefile.PL | 33 my @defines = ( DEFINE => exists($ENV{RELEASE_BUILD}) ? '-DNDEBUG' : '' );
42 if (! exists($ENV{CODEMGR_WS})) {
|
| /onnv/onnv-gate/usr/src/cmd/perl/contrib/Sun/Solaris/Privilege/ |
| Makefile.PL | 34 my @defines = ( DEFINE => exists($ENV{RELEASE_BUILD}) ? '-DNDEBUG' : '' );
42 if (! exists($ENV{ENVCPPFLAGS1})) {
|
| /onnv/onnv-gate/usr/src/cmd/perl/contrib/Sun/Solaris/Project/ |
| Makefile.PL | 34 my @defines = ( DEFINE => exists($ENV{RELEASE_BUILD}) ? '-DNDEBUG' : '' );
42 if (! exists($ENV{CODEMGR_WS})) {
|
| /onnv/onnv-gate/usr/src/cmd/perl/contrib/Sun/Solaris/Task/ |
| Makefile.PL | 34 my @defines = ( DEFINE => exists($ENV{RELEASE_BUILD}) ? '-DNDEBUG' : '' );
42 if (! exists($ENV{CODEMGR_WS})) {
|
| /onnv/onnv-gate/usr/src/cmd/perl/contrib/Sun/Solaris/Ucred/ |
| Makefile.PL | 35 my @defines = ( DEFINE => exists($ENV{RELEASE_BUILD}) ? '-DNDEBUG' : '' );
43 if (! exists($ENV{ENVCPPFLAGS1})) {
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Text/ |
| Abbrev.t | 19 print "not " if exists $x{'l'} ||
20 exists $x{'li'} ||
21 exists $x{'lis'};
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/io/ |
| print.t | 47 if (!exists &Errno::EBADF) {
|
| read.t | 35 skip "no EBADF", 1 if (!exists &Errno::EBADF);
|
| /onnv/onnv-gate/usr/src/cmd/sgs/rtld/sparcv9/ |
| boot.s | 99 ! +8: alias start (frame exists) XX64 what's this for?
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Memoize/ |
| NDBM_File.pm | 5 Memoize::NDBM_File - glue to provide EXISTS for NDBM_File for Storable use
41 sub EXISTS {
42 warn "Memoize::NDBM_File EXISTS (@_)\n" if $Verbose;
44 _backhash($self) unless exists $keylist{$self};
45 my $r = exists $keylist{$self}{$_[0]};
46 warn "Memoize::NDBM_File EXISTS (@_) ==> $r\n" if $Verbose;
53 _backhash($self) unless exists $keylist{$self};
|
| SDBM_File.pm | 5 Memoize::SDBM_File - glue to provide EXISTS for SDBM_File for Storable use
41 sub EXISTS {
42 warn "Memoize::SDBM_File EXISTS (@_)\n" if $Verbose;
44 _backhash($self) unless exists $keylist{$self};
45 my $r = exists $keylist{$self}{$_[0]};
46 warn "Memoize::SDBM_File EXISTS (@_) ==> $r\n" if $Verbose;
53 _backhash($self) unless exists $keylist{$self};
|
| /onnv/onnv-gate/usr/src/cmd/cron/ |
| permit.c | 41 #define exists(file) (stat(file, &globstat) == 0) macro
75 if (exists(allow)) {
81 } else if (exists(deny)) {
|
