Commit | Line | Data |
---|---|---|
270d1e39 | 1 | package File::Spec::OS2; |
2 | ||
270d1e39 | 3 | use strict; |
b4296952 | 4 | use vars qw(@ISA $VERSION); |
cbc7acb0 | 5 | require File::Spec::Unix; |
b4296952 | 6 | |
7 | $VERSION = '1.1'; | |
8 | ||
270d1e39 | 9 | @ISA = qw(File::Spec::Unix); |
10 | ||
cbc7acb0 | 11 | sub devnull { |
12 | return "/dev/nul"; | |
13 | } | |
270d1e39 | 14 | |
46726cbe | 15 | sub case_tolerant { |
16 | return 1; | |
17 | } | |
18 | ||
270d1e39 | 19 | sub file_name_is_absolute { |
cbc7acb0 | 20 | my ($self,$file) = @_; |
1b1e14d3 | 21 | return scalar($file =~ m{^([a-z]:)?[\\/]}is); |
270d1e39 | 22 | } |
23 | ||
24 | sub path { | |
270d1e39 | 25 | my $path = $ENV{PATH}; |
26 | $path =~ s:\\:/:g; | |
cbc7acb0 | 27 | my @path = split(';',$path); |
28 | foreach (@path) { $_ = '.' if $_ eq '' } | |
29 | return @path; | |
270d1e39 | 30 | } |
31 | ||
cbc7acb0 | 32 | my $tmpdir; |
33 | sub tmpdir { | |
34 | return $tmpdir if defined $tmpdir; | |
35 | my $self = shift; | |
36 | foreach (@ENV{qw(TMPDIR TEMP TMP)}, qw(/tmp /)) { | |
37 | next unless defined && -d; | |
38 | $tmpdir = $_; | |
39 | last; | |
40 | } | |
41 | $tmpdir = '' unless defined $tmpdir; | |
42 | $tmpdir =~ s:\\:/:g; | |
43 | $tmpdir = $self->canonpath($tmpdir); | |
44 | return $tmpdir; | |
99804bbb | 45 | } |
46 | ||
270d1e39 | 47 | 1; |
48 | __END__ | |
49 | ||
50 | =head1 NAME | |
51 | ||
52 | File::Spec::OS2 - methods for OS/2 file specs | |
53 | ||
54 | =head1 SYNOPSIS | |
55 | ||
cbc7acb0 | 56 | require File::Spec::OS2; # Done internally by File::Spec if needed |
270d1e39 | 57 | |
58 | =head1 DESCRIPTION | |
59 | ||
60 | See File::Spec::Unix for a documentation of the methods provided | |
61 | there. This package overrides the implementation of these methods, not | |
62 | the semantics. |