Lines Matching refs:File
7 require File::Spec;
10 @INC = map { $_ = File::Spec->rel2abs($_); /(.*)/; $1 } @INC;
16 require File::Spec::Unix;
17 @File::Spec::ISA = 'File::Spec::Unix';
22 use File::Find;
23 use File::Spec;
35 use File::Temp qw(tempdir);
89 untaint => 1, untaint_pattern => qr|^(.+)$|}, File::Spec->curdir);
95 untaint => 1, untaint_pattern => qr|^(.+)$|}, File::Spec->curdir);
135 my $updir = $^O eq 'VMS' ? File::Spec::VMS->updir() : File::Spec->updir;
149 print "# \$File::Find::dir => '$File::Find::dir'\t\$_ => '$_'\n";
165 $File::Find::prune=1 if $_ eq 'faba';
169 print "# \$File::Find::dir => '$File::Find::dir'\n";
230 %Expect_File = (File::Spec->curdir => 1, file_path('fsl') =>
243 File::Find::find( {wanted => \&wanted_File_Dir_prune, untaint => 1,
254 eval {File::Find::find( {wanted => \&simple_wanted}, topdir('fa_taint') );};
262 eval {File::Find::find( {wanted => \&simple_wanted, untaint => 1,
274 eval {File::Find::find( {wanted => \&simple_wanted, untaint => 1,
317 File::Find::find( {wanted => \&wanted_File_Dir, follow_fast => 1,
327 eval {File::Find::find( {wanted => \&simple_wanted, follow => 1},
336 eval {File::Find::find( {wanted => \&simple_wanted, follow => 1,
347 eval {File::Find::find( {wanted => \&simple_wanted, untaint => 1,