| /mirbsd/src/gnu/usr.bin/perl/t/io/ |
| D | tell.t | 23 $secondpos = tell;
31 $lastpos = tell;
41 if ($secondpos == tell) { print "ok 7\n"; } else { print "not ok 7\n"; }
47 if ($secondpos == tell) { print "ok 10\n"; } else { print "not ok 10\n"; }
51 if ($lastpos == tell) { print "ok 12\n"; } else { print "not ok 12\n"; }
66 tell other;
88 tell other;
93 if (tell(other) == -1) { print "ok 22\n"; } else { print "not ok 22\n"; }
95 if (tell(ether) == -1) { print "ok 23\n"; } else { print "not ok 23\n"; }
109 if (tell($tst) == 0) { print "ok 24\n"; } else { print "not ok 24\n"; }
[all …]
|
| D | utf8.t | 22 cmp_ok( tell(F), '==', 4, tell(F) );
24 cmp_ok( tell(F), '>=', 5, tell(F) );
81 { my $x = tell(F);
99 my $x = tell(F);
203 tell(F) == ($a += bytes::length($b))) {
208 print '# tell(F) == ', tell(F), "\n";
|
| D | open.t | 34 is( tell($f), 9, ' tell()' );
131 is( tell($f), 9, ' tell' );
|
| D | crlf.t | 43 my $pos = tell $fh; # pos must be behind "xxx", before "\nxxy\n"
|
| /mirbsd/src/gnu/usr.bin/perl/ext/IO/t/ |
| D | io_tell.t | 34 $secondpos = tell;
42 $lastpos = tell;
52 if ($secondpos == tell) { print "ok 7\n"; } else { print "not ok 7\n"; }
58 if ($secondpos == tell) { print "ok 10\n"; } else { print "not ok 10\n"; }
62 if ($lastpos == $tst->tell) { print "ok 12\n"; } else { print "not ok 12\n"; }
|
| D | io_linenum.t | 51 $t = tell F; # tell F; provokes a warning
66 $t = tell F;
|
| /mirbsd/src/gnu/usr.bin/perl/ext/PerlIO/t/ |
| D | scalar.t | 55 my $off = tell($fh);
62 $off = tell($fh);
74 $off = tell($fh);
86 $off = tell($fh);
|
| D | PerlIO.t | 83 ok( tell($x) >= 3, ' tell' );
106 ok( tell($x) >= 3, ' tell' );
|
| D | encoding.t | 104 my $offset = tell(RUSSKI);
|
| /mirbsd/src/usr.bin/rpcgen/ |
| D | rpc_main.c | 438 long tell; local
451 tell = ftell(fout);
455 if (extend && tell == ftell(fout)) {
525 long tell; local
541 tell = ftell(fout);
554 if (extend && tell == ftell(fout)) {
738 long tell; local
754 tell = ftell(fout);
758 if (extend && tell == ftell(fout))
773 long tell; local
[all …]
|
| /mirbsd/src/gnu/usr.bin/perl/t/lib/warnings/ |
| D | doio | 18 tell() on closed filehandle [Perl_do_tell]
19 $a = "fred";$a = tell($a)
106 tell(STDIN);
112 tell($a);
119 tell(STDIN);
125 tell($a);
131 tell() on closed filehandle STDIN at - line 4.
136 tell() on unopened filehandle at - line 10.
|
| /mirbsd/src/lib/libncurses/src/ncurses/tinfo/ |
| D | read_entry.c | 51 #define tell(fd) lseek(fd, 0, SEEK_CUR) /* lseek() is POSIX, but not tell() */ macro
169 TR(TRACE_DATABASE, ("READ termtype header @%ld", (long) tell(fd))); in read_termtype()
265 TR(TRACE_DATABASE, ("READ extended_header @%ld", (long) tell(fd))); in read_termtype()
298 ext_bool_count, (long) tell(fd))); in read_termtype()
307 ext_num_count, (long) tell(fd))); in read_termtype()
315 TR(TRACE_DATABASE, ("READ extended-offsets @%ld", (long) tell(fd))); in read_termtype()
321 ext_str_limit, (long) tell(fd))); in read_termtype()
|
| /mirbsd/src/gnu/usr.bin/perl/t/op/ |
| D | lfs.t | 220 offset('tell(BIG)', 4_500_000_000);
227 # your tell() is returning 32-bit values since (I32)4_500_000_001
229 offset('tell(BIG)', 4_500_000_001);
235 offset('tell(BIG)', 4_500_000_000);
241 offset('tell(BIG)', 5_000_000_000);
|
| /mirbsd/src/usr.bin/ssh/ |
| D | README.smartcard | 49 (5) tell the ssh client to use the card reader:
53 (6) or tell the agent (don't forget to restart) to use the smartcard:
|
| /mirbsd/src/gnu/usr.bin/perl/ext/Encode/lib/Encode/ |
| D | PerlIO.pod | 117 in escape-based encodings you can't tell if a given octet is a whole
120 Fortunately PerlIO also supports line buffer if you tell PerlIO to use
124 To tell PerlIO to use line buffer, implement -E<gt>needs_lines method
139 =head2 How can I tell whether my encoding fully supports PerlIO ?
|
| /mirbsd/src/gnu/usr.bin/cvs/contrib/ |
| D | sccs2rcs.in | 83 set edits = (`sccs tell`)
310 foreach f (`sccs tell`)
|
| /mirbsd/src/gnu/usr.bin/perl/lib/Tie/Handle/ |
| D | stdhandle.t | 26 print "not " unless tell($f) == 9;
|
| /mirbsd/src/usr.bin/sudo/ |
| D | PORTING | 14 be sufficient to tell configure you are runnng SVR4, something like:
63 page should tell you what library this is. You can then use the
64 --with-libraries option to configure to tell sudo to link with the
|
| /mirbsd/src/gnu/usr.bin/perl/hints/ |
| D | bsdos.sh | 128 Feel free to tell perlbug@perl.org otherwise.
|
| D | freebsd.sh | 194 Feel free to tell perlbug@perl.org otherwise.
|
| /mirbsd/src/gnu/usr.bin/perl/lib/ |
| D | FileHandle.t | 58 print "not " unless ($fh->open("TEST","r") && !$fh->tell && $fh->close);
|
| /mirbsd/src/usr.bin/file/magdir/ |
| D | lisp | 14 # Also applies to XEmacs 19+ .elc files; could tell them apart if we had regexp
|
| D | digital | 24 # The next is incomplete, we could tell more about this format,
|
| /mirbsd/src/usr.bin/vi/perl_api/ |
| D | nviperl.pod | 33 this is a bad idea, tell me.)
|
| /mirbsd/src/gnu/usr.bin/perl/ext/Sys/Syslog/ |
| D | Changes | 4 [CODE] Merged blead@26768: If getservbyname fails tell what service
|