| /openbsd-src/gnu/usr.bin/perl/lib/ |
| H A D | DirHandle.t | 13 use DirHandle;
26 $dot = DirHandle->new('.');
28 ok(defined $dot, "DirHandle->new returns defined value");
29 isa_ok($dot, 'DirHandle');
52 eval { $redot = DirHandle->new( '.', '..' ); };
54 "DirHandle constructor with too many arguments fails as expected");
59 $redot = DirHandle->new();
60 ok(defined $redot, "DirHandle->new returns defined value even without provided argument");
61 isa_ok($redot, 'DirHandle');
81 $undot = DirHandle->new('foobar');
[all …]
|
| H A D | DirHandle.pm | 1 package DirHandle; package
7 DirHandle - (obsolete) supply object methods for directory handles
11 # recommended approach since Perl 5.6: do not use DirHandle
19 use DirHandle;
20 if (my $d = DirHandle->new(".")) {
30 The C<DirHandle> method provide an alternative interface to the
36 C<DirHandle> encapsulates this, which allowed cleaner code than opendir().
46 @_ >= 1 && @_ <= 2 or croak 'usage: DirHandle->new( [DIRNAME] )';
50 DirHandle::open($dh, $_[0])
|
| /openbsd-src/gnu/usr.bin/perl/t/lib/warnings/ |
| H A D | pp_sys | 159 (Are you trying to call write() on dirhandle STDIN?)
186 (Are you trying to call write() on dirhandle FOO?)
229 (Are you trying to call printf() on dirhandle STDIN?)
261 (Are you trying to call syswrite() on dirhandle STDIN?)
292 (Are you trying to call flock() on dirhandle STDIN?)
416 (Are you trying to call send() on dirhandle STDIN?)
418 (Are you trying to call bind() on dirhandle STDIN?)
420 (Are you trying to call connect() on dirhandle STDIN?)
422 (Are you trying to call listen() on dirhandle STDIN?)
424 (Are you trying to call accept() on dirhandle STDIN?)
[all …]
|
| H A D | pp_hot | 136 (Are you trying to call print() on dirhandle STDIN?)
210 (Are you trying to call readline() on dirhandle STDIN?)
223 (Are you trying to call readline() on dirhandle STDIN?)
|
| /openbsd-src/gnu/usr.bin/perl/t/lib/croak/ |
| H A D | pp_sys | 17 # NAME open on global dirhandle
21 Cannot open FOO as a filehandle: it is already open as a dirhandle at - line 2.
23 # NAME open on lexical dirhandle
27 Cannot open $foo as a filehandle: it is already open as a dirhandle at - line 2.
29 # NAME open on global utf8 dirhandle
36 Cannot open ＦＯＯ as a filehandle: it is already open as a dirhandle at - line 5.
38 # NAME open on lexical utf8 dirhandle
45 Cannot open $ｆｏｏ as a filehandle: it is already open as a dirhandle at - line 5.
51 Cannot open FOO as a dirhandle: it is already open as a filehandle at - line 2.
57 Cannot open $foo as a dirhandle: it is already open as a filehandle at - line 2.
[all …]
|
| /openbsd-src/gnu/usr.bin/perl/t/io/ |
| H A D | perlio.t | 131 ok(defined $fd, "fileno(DIRHANDLE) is defined under dirfd()")
134 "fileno(DIRHANDLE) yields non-negative int under dirfd()");
137 ok(!defined $fd, "fileno(DIRHANDLE) is undef when no dirfd()");
138 isnt($errno, 0, "fileno(DIRHANDLE) sets errno when no dirfd()");
|
| /openbsd-src/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/t/ |
| H A D | META_for_testing.yml | 23 DirHandle: 0
|
| H A D | META_for_testing.json | 37 "DirHandle" : 0, number
|
| H A D | metafile_data.t | 396 "DirHandle" => 0,
|
| /openbsd-src/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/ |
| H A D | CacheMgr.pm | 68 my $dh = DirHandle->new(File::Spec->curdir)
207 my $dh = DirHandle->new($self->{ID});
|
| H A D | Distroprefs.pm | 88 use DirHandle;
|
| /openbsd-src/regress/usr.bin/make/ |
| H A D | mk16 | 107 DirHandle 3p lib/DirHandle.pm \
|
| /openbsd-src/gnu/usr.bin/perl/t/op/ |
| H A D | stat.t | 579 ok(stat(DIR), "stat() on dirhandle works");
580 ok(-d -r _ , "chained -x's on dirhandle");
581 ok(-d DIR, "-d on a dirhandle works");
594 #PVIO's hold dirhandle information, so let's test them too.
|
| /openbsd-src/gnu/usr.bin/perl/dist/IO/t/ |
| H A D | io_dir.t | 50 local $^W; # avoid warnings on invalid dirhandle
|
| /openbsd-src/gnu/usr.bin/perl/ext/POSIX/lib/ |
| H A D | POSIX.pm | 117 closedir => 'dirhandle => CORE::closedir($_[0])',
154 readdir => 'dirhandle => CORE::readdir($_[0])',
158 rewinddir => 'dirhandle => CORE::rewinddir($_[0])',
|
| /openbsd-src/gnu/usr.bin/perl/pod/ |
| H A D | perldeprecation.pod | 510 =head3 Using the same symbol to open a filehandle and a dirhandle
513 filehandle and a dirhandle to the same symbol (glob or scalar).
517 Using the same symbol to C<open()> a filehandle and a dirhandle
|
| H A D | perlfunc.pod | 196 L<C<closedir>|/closedir DIRHANDLE>, L<C<dbmclose>|/dbmclose HASH>,
203 L<C<readdir>|/readdir DIRHANDLE>, L<C<readline>|/readline EXPR>,
204 L<C<rewinddir>|/rewinddir DIRHANDLE>, L<C<say>|/say FILEHANDLE LIST>,
206 L<C<seekdir>|/seekdir DIRHANDLE,POS>,
212 L<C<tell>|/tell FILEHANDLE>, L<C<telldir>|/telldir DIRHANDLE>,
246 L<C<opendir>|/opendir DIRHANDLE,EXPR>, L<C<readlink>|/readlink EXPR>,
562 =item -X DIRHANDLE
569 operator takes one argument, either a filename, a filehandle, or a dirhandle,
1121 =item chdir DIRHANDLE
1419 =item closedir DIRHANDLE
[all...] |
| H A D | perl5100delta.pod | 1464 =item readdir()/closedir()/etc. attempted on invalid dirhandle
1466 These new warnings are now emitted when a dirhandle is used but is
1467 either closed or not really a dirhandle.
1469 =item Opening dirhandle/filehandle %s also as a file/directory
1473 Opening dirhandle %s also as a file
|
| H A D | perlport.pod | 469 L<C<opendir>|perlfunc/opendir DIRHANDLE,EXPR>,
470 L<C<readdir>|perlfunc/readdir DIRHANDLE>, and
471 L<C<closedir>|perlfunc/closedir DIRHANDLE> instead.
923 like L<C<readdir>|perlfunc/readdir DIRHANDLE> or used with functions like
925 L<C<opendir>|perlfunc/opendir DIRHANDLE,EXPR>.
1106 L<C<readdir>|perlfunc/readdir DIRHANDLE> will return a trailing dot on a
1396 L<C<readdir>|perlfunc/readdir DIRHANDLE> and L<C<glob>|perlfunc/glob EXPR>
1994 Will not cause L<C<readdir>|perlfunc/readdir DIRHANDLE> to re-read the
|
| H A D | perldiag.pod | 763 =item Cannot open %s as a dirhandle: it is already open as a filehandle
765 (F) You tried to use opendir() to associate a dirhandle to a symbol (glob
770 =item Cannot open %s as a filehandle: it is already open as a dirhandle
773 or scalar) that already holds a dirhandle. Since this idiom might render
1880 =item closedir() attempted on invalid dirhandle %s
1882 (W io) The dirhandle you tried to close is either closed or not really
1883 a dirhandle. Check your control flow.
2663 filehandles. Are you attempting to call flock() on a dirhandle by the
5643 =item readdir() attempted on invalid dirhandle %s
5645 (W io) The dirhandle yo
[all...] |
| /openbsd-src/gnu/usr.bin/perl/dist/PathTools/lib/File/ |
| H A D | Spec.pm | 167 @paths = File::Spec->no_upwards( readdir $dirhandle );
|
| /openbsd-src/gnu/usr.bin/perl/cpan/autodie/lib/ |
| H A D | autodie.pm | 315 filehandle/dirhandle) this is a valid call to chdir. But under
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Pod-Perldoc/corpus/ |
| H A D | perlfunc.pod | |
| /openbsd-src/gnu/usr.bin/perl/regen/ |
| H A D | opcodes | 34 # num-compare - S< dirhandle - DF infix bitwise - S|
|
| /openbsd-src/gnu/usr.bin/perl/ |
| H A D | pp_sys.c | 834 Perl_croak(aTHX_ "Cannot open %" HEKf " as a filehandle: it is already open as a dirhandle", in PP()
4287 Perl_croak(aTHX_ "Cannot open %" HEKf " as a dirhandle: it is already open as a filehandle", in PP()
4322 "readdir() attempted on invalid dirhandle %" HEKf, in PP()
4372 "telldir() attempted on invalid dirhandle %" HEKf, in PP()
4398 "seekdir() attempted on invalid dirhandle %" HEKf, in PP()
4423 "rewinddir() attempted on invalid dirhandle %" HEKf, in PP()
4447 "closedir() attempted on invalid dirhandle %" HEKf, in PP()
|