contrib/perl5/lib/File/Spec/OS2.pm

   1 package File::Spec::OS2;
   2
   3 #use Config;
   4 #use Cwd;
   5 #use File::Basename;
   6 use strict;
   7 require Exporter;
   8
   9 use File::Spec;
  10 use vars qw(@ISA);
  11
  12 Exporter::import('File::Spec',
  13        qw( $Verbose));
  14
  15 @ISA = qw(File::Spec::Unix);
  16
  17 $ENV{EMXSHELL} = 'sh'; # to run `commands`
  18
  19 sub file_name_is_absolute {
  20     my($self,$file) = @_;
  21     $file =~ m{^([a-z]:)?[\\/]}i ;
  22 }
  23
  24 sub path {
  25     my($self) = @_;
  26     my $path_sep = ";";
  27     my $path = $ENV{PATH};
  28     $path =~ s:\\:/:g;
  29     my @path = split $path_sep, $path;
  30     foreach(@path) { $_ = '.' if $_ eq '' }
  31     @path;
  32 }
  33
  34 1;
  35 __END__
  36
  37 =head1 NAME
  38
  39 File::Spec::OS2 - methods for OS/2 file specs
  40
  41 =head1 SYNOPSIS
  42
  43  use File::Spec::OS2; # Done internally by File::Spec if needed
  44
  45 =head1 DESCRIPTION
  46
  47 See File::Spec::Unix for a documentation of the methods provided
  48 there. This package overrides the implementation of these methods, not
  49 the semantics.
  50
  51 =cut