1 package File::Spec::OS2;
5 require File::Spec::Unix;
6 @ISA = qw(File::Spec::Unix);
16 sub file_name_is_absolute {
17 my ($self,$file) = @_;
18 return scalar($file =~ m{^([a-z]:)?[\\/]}i);
22 my $path = $ENV{PATH};
24 my @path = split(';',$path);
25 foreach (@path) { $_ = '.' if $_ eq '' }
31 return $tmpdir if defined $tmpdir;
33 foreach (@ENV{qw(TMPDIR TEMP TMP)}, qw(/tmp /)) {
34 next unless defined && -d;
38 $tmpdir = '' unless defined $tmpdir;
40 $tmpdir = $self->canonpath($tmpdir);
49 File::Spec::OS2 - methods for OS/2 file specs
53 require File::Spec::OS2; # Done internally by File::Spec if needed
57 See File::Spec::Unix for a documentation of the methods provided
58 there. This package overrides the implementation of these methods, not