summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/File/Spec/AmigaOS.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/File/Spec/AmigaOS.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/File/Spec/AmigaOS.pm62
1 files changed, 62 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/File/Spec/AmigaOS.pm b/Master/tlpkg/tlperl/lib/File/Spec/AmigaOS.pm
new file mode 100644
index 00000000000..7a5889cec49
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/File/Spec/AmigaOS.pm
@@ -0,0 +1,62 @@
+package File::Spec::AmigaOS;
+
+use strict;
+use vars qw(@ISA $VERSION);
+require File::Spec::Unix;
+
+$VERSION = '3.64';
+$VERSION =~ tr/_//d;
+
+@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;