home *** CD-ROM | disk | FTP | other *** search
/ Chip: Windows 2000 Professional Resource Kit / W2KPRK.iso / apps / perl / ActivePerl.exe / data.z / OS2.pm < prev    next >
Encoding:
Perl POD Document  |  1999-10-14  |  1.1 KB  |  56 lines
  1. package File::Spec::OS2;
  2.  
  3. use strict;
  4. use vars qw(@ISA);
  5. require File::Spec::Unix;
  6. @ISA = qw(File::Spec::Unix);
  7.  
  8. sub devnull {
  9.     return "/dev/nul";
  10. }
  11.  
  12. sub file_name_is_absolute {
  13.     my ($self,$file) = @_;
  14.     return scalar($file =~ m{^([a-z]:)?[\\/]}i);
  15. }
  16.  
  17. sub path {
  18.     my $path = $ENV{PATH};
  19.     $path =~ s:\\:/:g;
  20.     my @path = split(';',$path);
  21.     foreach (@path) { $_ = '.' if $_ eq '' }
  22.     return @path;
  23. }
  24.  
  25. my $tmpdir;
  26. sub tmpdir {
  27.     return $tmpdir if defined $tmpdir;
  28.     my $self = shift;
  29.     foreach (@ENV{qw(TMPDIR TEMP TMP)}, qw(/tmp /)) {
  30.     next unless defined && -d;
  31.     $tmpdir = $_;
  32.     last;
  33.     }
  34.     $tmpdir = '' unless defined $tmpdir;
  35.     $tmpdir =~ s:\\:/:g;
  36.     $tmpdir = $self->canonpath($tmpdir);
  37.     return $tmpdir;
  38. }
  39.  
  40. 1;
  41. __END__
  42.  
  43. =head1 NAME
  44.  
  45. File::Spec::OS2 - methods for OS/2 file specs
  46.  
  47. =head1 SYNOPSIS
  48.  
  49.  require File::Spec::OS2; # Done internally by File::Spec if needed
  50.  
  51. =head1 DESCRIPTION
  52.  
  53. See File::Spec::Unix for a documentation of the methods provided
  54. there. This package overrides the implementation of these methods, not
  55. the semantics.
  56.