| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/File/ |
| Basename.t | 8 use File::Basename qw(fileparse basename dirname);
13 print +(defined(&basename) && !defined(&fileparse_set_fstype) ?
17 print +(length(File::Basename::fileparse_set_fstype('unix')) ?
28 print +(basename('/arma/virumque.cano') eq 'virumque.cano' ?
36 print +(File::Basename::fileparse_set_fstype('VMS') eq 'unix' ?
47 print +(basename('arma:[virumque]cano.trojae') eq 'cano.trojae' ?
59 print +(File::Basename::fileparse_set_fstype('MSDOS') eq 'VMS' ?
70 print +(basename('A:virumque\\cano.trojae') eq 'cano.trojae' ?
78 basename("lib/File/Basename.pm") eq "Basename.pm" or print "not "
[all...] |
| Basename.pm | 1 package File::Basename;
7 basename - extract just the filename from a path
13 use File::Basename;
17 $basename = basename($fullname,@suffixlist);
20 ($name,$path,$suffix) = fileparse("lib/File/Basename.pm",qr{\.pm});
22 $basename = basename("lib/File/Basename.pm",".pm");
23 $dirname = dirname("lib/File/Basename.pm")
235 sub basename { subroutine
[all...] |
| Path.pm | 117 use File::Basename ();
154 my $parent = File::Basename::dirname($path);
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/utils/ |
| cpan.PL | 4 use File::Basename qw(&basename &dirname);
18 my $file = basename($0, '.PL');
|
| enc2xs.PL | 4 use File::Basename qw(&basename &dirname);
18 my $file = basename($0, '.PL');
|
| instmodsh.PL | 4 use File::Basename qw(&basename &dirname);
18 my $file = basename($0, '.PL');
|
| perldoc.PL | 10 use File::Basename qw(&basename &dirname);
25 my $file = basename($0, '.PL');
|
| piconv.PL | 4 use File::Basename qw(&basename &dirname);
18 my $file = basename($0, '.PL');
|
| prove.PL | 4 use File::Basename qw(&basename &dirname);
18 my $file = basename($0, '.PL');
|
| splain.PL | 4 use File::Basename qw(&basename &dirname);
20 $file = basename($0, '.PL');
|
| xsubpp.PL | 4 use File::Basename qw(&basename &dirname);
18 my $file = basename($0, '.PL');
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/MakeMaker/Test/Setup/ |
| Recurs.pm | 9 use File::Basename;
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/pod/ |
| pod2usage.PL | 4 use File::Basename qw(&basename &dirname);
18 $file = basename($0, '.PL');
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/ |
| 00setup_dummy.t | 15 use File::Basename;
|
| /onnv/onnv-gate/usr/src/cmd/projadd/ |
| projdel.pl | 35 use File::Basename;
47 my $prog = basename($0);
59 my $prog = basename($0) . ': ';
|
| /onnv/onnv-gate/usr/src/tools/ctf/scripts/ |
| ctfcvtptbl.pl | 77 use File::Basename;
79 my $PROGNAME = basename($0);
|
| /onnv/onnv-gate/usr/src/cmd/abi/appcert/scripts/ |
| abi_index.pl | 42 use File::Basename;
157 my $basename;
159 $basename = basename($path);
163 return unless ($basename =~ /^lib.*\.so[\.\d]*$/);
165 return unless ($basename =~ /^lib.*\.so\.[\.\d]+$/);
|
| /onnv/onnv-gate/usr/src/cmd/dtrace/demo/ |
| mkdemo.pl | 33 use File::Basename;
223 if (basename($ARGV[0]) ne "$htmlfile") {
224 demo_find(basename($ARGV[0]));
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/t/ |
| Usage.t | 8 use File::Basename;
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/pod/ |
| testpchk.pl | 4 use File::Basename;
52 my $testname = basename $cmpfile, '.t', '.xr';
|
| testcmp.pl | 8 use File::Basename;
|
| testp2pt.pl | 4 use File::Basename;
42 $INSTDIR = (dirname $INSTDIR) if (basename($INSTDIR) eq 'pod');
44 $INSTDIR = (dirname $INSTDIR) if (basename($INSTDIR) eq 't');
92 my $incbase = basename $incfile;
116 my $testname = basename $cmpfile, '.t', '.xr';
|
| /onnv/onnv-gate/usr/src/tools/scripts/ |
| genoffsets.pl | 41 use File::Basename;
46 our $PROGNAME = basename($0);
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| AutoSplit.pm | 7 use File::Basename ();
396 $outdirs{File::Basename::dirname($_)}||=1;
459 length(File::Basename::basename($_))
465 my($dir) = File::Basename::dirname($_);
466 my($file) = File::Basename::basename($_);
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/ |
| MM_NW5.pm | 23 use File::Basename;
|
