[ SYSTEM ]: Linux srv.persadacompanies.com 4.18.0-553.56.1.el8_10.x86_64 #1 SMP Tue Jun 10 05:00:59 EDT 2025 x86_64
[ SERVER ]: Apache | PHP: 8.4.20
[ USER ]: persadamedika | IP: 45.64.1.108
GEFORCE FILE MANAGER
/
usr
/
lib64
/
perl5
/
vendor_perl
/
File
/
Spec
/
UPLOAD:
NAME
SIZE
QUICK PERMS
ACTIONS
📄 AmigaOS.pm
982 B
SET
[ EDIT ]
|
[ DEL ]
📄 Cygwin.pm
3,610 B
SET
[ EDIT ]
|
[ DEL ]
📄 Epoc.pm
1,571 B
SET
[ EDIT ]
|
[ DEL ]
📄 Functions.pm
2,348 B
SET
[ EDIT ]
|
[ DEL ]
📄 Mac.pm
22,274 B
SET
[ EDIT ]
|
[ DEL ]
📄 OS2.pm
6,766 B
SET
[ EDIT ]
|
[ DEL ]
📄 Unix.pm
15,889 B
SET
[ EDIT ]
|
[ DEL ]
📄 Win32.pm
11,217 B
SET
[ EDIT ]
|
[ DEL ]
DELETE SELECTED
[ CLOSE ]
EDIT: AmigaOS.pm
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;