1 package File::Spec::OS2;
12 Exporter::import('File::Spec',
15 @ISA = qw(File::Spec::Unix);
17 $ENV{EMXSHELL} = 'sh'; # to run `commands`
19 sub file_name_is_absolute {
21 $file =~ m{^([a-z]:)?[\\/]}i ;
27 my $path = $ENV{PATH};
29 my @path = split $path_sep, $path;
30 foreach(@path) { $_ = '.' if $_ eq '' }
39 File::Spec::OS2 - methods for OS/2 file specs
43 use File::Spec::OS2; # Done internally by File::Spec if needed
47 See File::Spec::Unix for a documentation of the methods provided
48 there. This package overrides the implementation of these methods, not