| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| find.pl | 32 use File::Find ();
34 *name = *File::Find::name;
35 *prune = *File::Find::prune;
36 *dir = *File::Find::dir;
37 *topdir = *File::Find::topdir;
38 *topdev = *File::Find::topdev;
39 *topino = *File::Find::topino;
40 *topmode = *File::Find::topmode;
41 *topnlink = *File::Find::topnlink;
44 &File::Find::find(\&wanted, @_)
[all...] |
| finddepth.pl | 31 use File::Find ();
33 *name = *File::Find::name;
34 *prune = *File::Find::prune;
35 *dir = *File::Find::dir;
36 *topdir = *File::Find::topdir;
37 *topdev = *File::Find::topdev;
38 *topino = *File::Find::topino;
39 *topmode = *File::Find::topmode;
40 *topnlink = *File::Find::topnlink;
43 &File::Find::finddepth(\&wanted, @_)
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/File/t/ |
| 00_version.t | 6 use Tie::File;
8 if ($Tie::File::VERSION != $testversion) {
13 You seem to be running version $Tie::File::VERSION of the module
|
| /onnv/onnv-gate/usr/src/cmd/print/printmgr/com/sun/admin/pm/server/ |
| pmMisc.java | 4 * The contents of this file are subject to the terms of the
6 * You may not use this file except in compliance with the License.
14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
42 File ppdcache = new File("/var/lp/ppd/ppdcache");
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/File/Spec/t/ |
| Spec.t | 5 # Grab all of the plain routines from File::Spec
6 use File::Spec @File::Spec::EXPORT_OK ;
8 require File::Spec::Unix ;
9 require File::Spec::Win32 ;
19 # on VMS. It might be better to change File::Spec::VMS to do this,
23 sub File::Spec::VMS::vmsify { die "$skip_exception" }
24 sub File::Spec::VMS::unixify { die "$skip_exception" }
25 sub File::Spec::VMS::vmspath { die "$skip_exception" }
29 require File::Spec::VMS
[all...] |
| Functions.t | 4 use File::Spec::Functions qw/:ALL/;
7 ok catfile('a','b','c'), File::Spec->catfile('a','b','c');
|
| rel2abs2rel.t | 3 # Here we make sure File::Spec can properly deal with executables.
8 : (skip_all => "Can't find an executable file")
11 BEGIN { # Set up a tiny script file
14 or die "Can't open rel2abs2rel$$.pl file for script -- $!\n";
25 use File::Spec;
30 $perl = File::Spec->catfile(File::Spec->curdir, $perl) unless
31 File::Spec->file_name_is_absolute($perl);
43 or die "Can't open scratch file rel2abs2rel$$.tmp -- $!\n";
61 $perl = File::Spec->rel2abs($^X)
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/File/Temp/t/ |
| security.t | 2 # Test for File::Temp - Security levels
12 use File::Spec;
15 # File::Temp since this END block must be evaluated after the
16 # END block configured by File::Temp
20 use File::Temp qw/ tempfile unlink0 /;
45 File::Temp->safe_level( File::Temp::STANDARD );
53 File::Temp->safe_level( File::Temp::MEDIUM )
63 File::Temp->safe_level( File::Temp::HIGH
[all...] |
| mktemp.t | 3 # Test for mktemp family of commands in File::Temp
10 use File::Spec;
11 use File::Path;
12 use File::Temp qw/ :mktemp unlink0 /;
19 # Create file in temp directory
20 my $template = File::Spec->catfile(File::Spec->tmpdir, 'wowserXXXX');
24 print "# MKSTEMP: FH is $fh File is $template fileno=".fileno($fh)."\n";
25 # Check if the file exists
31 # Try printing something to the file
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/utils/ |
| cpan.PL | 4 use File::Basename qw(&basename &dirname);
14 # This forces PL files to create target in same directory as PL file.
18 my $file = basename($0, '.PL');
19 $file .= '.com' if $^O eq 'VMS';
21 open OUT,">$file" or die "Can't create $file: $!";
23 print "Extracting $file (with variable substitutions)\n";
34 use File::Spec;
36 my $cpan = File::Spec->catfile(File::Spec->catdir(File::Spec->updir, "lib", "CPAN", "bin"), "cpan")
[all...] |
| enc2xs.PL | 4 use File::Basename qw(&basename &dirname);
14 # This forces PL files to create target in same directory as PL file.
18 my $file = basename($0, '.PL');
19 $file .= '.com' if $^O eq 'VMS';
21 open OUT,">$file" or die "Can't create $file: $!";
23 print "Extracting $file (with variable substitutions)\n";
34 use File::Spec;
36 my $enc2xs = File::Spec->catfile(File::Spec->catdir(File::Spec->updir, "ext", "Encode", "bin"), "enc2xs")
[all...] |
| instmodsh.PL | 4 use File::Basename qw(&basename &dirname);
14 # This forces PL files to create target in same directory as PL file.
18 my $file = basename($0, '.PL');
19 $file .= '.com' if $^O eq 'VMS';
21 open OUT,">$file" or die "Can't create $file: $!";
23 print "Extracting $file (with variable substitutions)\n";
34 use File::Spec;
36 my $instmodsh = File::Spec->catfile(File::Spec->catdir(File::Spec->updir, "lib", "ExtUtils"), "instmodsh")
[all...] |
| piconv.PL | 4 use File::Basename qw(&basename &dirname);
14 # This forces PL files to create target in same directory as PL file.
18 my $file = basename($0, '.PL');
19 $file .= '.com' if $^O eq 'VMS';
21 open OUT,">$file" or die "Can't create $file: $!";
23 print "Extracting $file (with variable substitutions)\n";
34 use File::Spec;
36 my $piconv = File::Spec->catfile(File::Spec->catdir(File::Spec->updir, "ext", "Encode", "bin"), "piconv")
[all...] |
| prove.PL | 4 use File::Basename qw(&basename &dirname);
14 # This forces PL files to create target in same directory as PL file.
18 my $file = basename($0, '.PL');
19 $file .= '.com' if $^O eq 'VMS';
21 open OUT,">$file" or die "Can't create $file: $!";
23 print "Extracting $file (with variable substitutions)\n";
34 use File::Spec;
36 my $prove = File::Spec->catfile(File::Spec->catdir(File::Spec->updir
[all...] |
| xsubpp.PL | 4 use File::Basename qw(&basename &dirname);
14 # This forces PL files to create target in same directory as PL file.
18 my $file = basename($0, '.PL');
19 $file .= '.com' if $^O eq 'VMS';
21 open OUT,">$file" or die "Can't create $file: $!";
23 print "Extracting $file (with variable substitutions)\n";
34 use File::Spec;
36 my $xsubpp = File::Spec->catfile(File::Spec->catdir(File::Spec->updir, "lib", "ExtUtils"), "xsubpp")
[all...] |
| splain.PL | 4 use File::Basename qw(&basename &dirname);
5 use File::Spec;
16 # This forces PL files to create target in same directory as PL file.
20 $file = basename($0, '.PL');
21 $file .= '.com' if $^O eq 'VMS';
23 # Open input file before creating output file.
24 $IN = File::Spec->catfile(File::Spec->updir, 'lib', 'diagnostics.pm');
27 # Create output file
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/File/Spec/ |
| Functions.pm | 1 package File::Spec::Functions;
3 use File::Spec;
40 my $sub = File::Spec->can($meth);
42 *{$meth} = sub {&$sub('File::Spec', @_)};
51 File::Spec::Functions - portably perform operations on file names
55 use File::Spec::Functions;
61 provided by File::Spec.
63 For a reference of available functions, please consult L<File::Spec::Unix>,
65 other platforms. For further information, please see L<File::Spec::Mac>
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/bignum/t/ |
| bninfnan.t | 23 require File::Spec;
24 unshift @INC, File::Spec->catdir(File::Spec->updir, $location);
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/File/ |
| Path.t | 8 use File::Path;
9 use File::Spec::Functions;
|
| Compare.t | 12 print "1..0 # Skip: no file TEST or harness\n";
19 use File::Compare qw(compare compare_text);
31 # a file which doesn't exist
34 # compare_text, the same file, different but existing files
49 # filehandle and same file
59 # filehandle and different (but existing) file.
69 # Different file with contents of known file,
70 # will use File::Temp to do this, skip rest of
75 require File::Spec; import File::Spec
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/B/ |
| Makefile.PL | 4 # The contents of this file are subject to the terms of the
6 # (the "License"). You may not use this file except in compliance
15 # file and include the License file at usr/src/OPENSOLARIS.LICENSE.
24 use File::Spec;
55 File::Spec->catfile(File::Spec->updir,
56 File::Spec->updir, $_[0]);
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/IO/t/ |
| io_taint.t | 24 use IO::File;
25 $x = new IO::File "> ./__taint__$$" || die("Cannot open ./__taint__$$\n");
29 $x = new IO::File "< ./__taint__$$" || die("Cannot open ./__taint__$$\n");
38 $x = new IO::File "< ./__taint__$$" || die("Cannot open ./__taint__$$\n");
|
| io_linenum.t | 6 my $File;
10 $File = __FILE__;
14 $File =~ s/^t\W+//; # Remove first directory
24 use IO::File;
38 open (F, $File) or die $!;
39 my $io = IO::File->new($File) or die $!;
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/run/ |
| switchx.t | 9 use File::Spec::Functions;
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/File/Glob/t/ |
| case.t | 21 use File::Glob qw(:glob csh_glob);
28 import File::Glob ':nocase';
34 import File::Glob ':case';
49 @a = File::Glob::glob("op\\g*.t");
53 @a = File::Glob::glob("\\[\\]", GLOB_QUOTE);
|
