/
usr
/
lib64
/
perl5
/
vendor_perl
/
File
/
Spec
/
/usr/lib64/perl5/vendor_perl/File/Spec
mkdir
upload
Name
Size
Mode
Actions
AmigaOS.pm
982
0644
edit
dl
rm
Cygwin.pm
3610
0644
edit
dl
rm
Epoc.pm
1571
0644
edit
dl
rm
Functions.pm
2348
0644
edit
dl
rm
Mac.pm
22274
0644
edit
dl
rm
OS2.pm
6766
0644
edit
dl
rm
Unix.pm
15889
0644
edit
dl
rm
Win32.pm
11217
0644
edit
dl
rm
Edit:
/usr/lib64/perl5/vendor_perl/File/Spec/AmigaOS.pm
(982B)
package File::Spec::AmigaOS; use strict; require File::Spec::Unix; our $VERSION = '3.74'; $VERSION =~ tr/_//d; our @ISA = qw(File::Spec::Unix); =head1 NAME File::Spec::AmigaOS - File::Spec for AmigaOS =head1 SYNOPSIS require File::Spec::AmigaOS; # Done automatically by File::Spec # if needed =head1 DESCRIPTION Methods for manipulating file specifications. =head1 METHODS =over 2 =item tmpdir Returns $ENV{TMPDIR} or if that is unset, "/t". =cut my $tmpdir; sub tmpdir { return $tmpdir if defined $tmpdir; $tmpdir = $_[0]->_tmpdir( $ENV{TMPDIR}, "/t" ); } =item file_name_is_absolute Returns true if there's a colon in the file name, or if it begins with a slash. =cut sub file_name_is_absolute { my ($self, $file) = @_; # Not 100% robust as a "/" must not preceded a ":" # but this cannot happen in a well formed path. return $file =~ m{^/|:}s; } =back All the other methods are from L<File::Spec::Unix>. =cut 1;
Save
cmd:
run