usr
/
lib64
/
perl5
/
vendor_perl
/
File
/
Spec
/
Go to Home Directory
+
Upload
Create File
root@0UT1S:~$
Execute
By Order of Mr.0UT1S
[DIR] ..
N/A
AmigaOS.pm
982 bytes
Rename
Delete
Cygwin.pm
3.53 KB
Rename
Delete
Epoc.pm
1.53 KB
Rename
Delete
Functions.pm
2.29 KB
Rename
Delete
Mac.pm
21.75 KB
Rename
Delete
OS2.pm
6.61 KB
Rename
Delete
Unix.pm
15.52 KB
Rename
Delete
Win32.pm
10.95 KB
Rename
Delete
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