home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 November (DVD) / PCWELT_11_2006.ISO / casper / filesystem.squashfs / usr / share / perl / 5.8.8 / File / Spec.pm < prev    next >
Encoding:
Perl POD Document  |  2006-07-07  |  595 b   |  28 lines

  1. package File::Spec;
  2.  
  3. use strict;
  4. use vars qw(@ISA $VERSION);
  5.  
  6. $VERSION = '3.12';
  7. $VERSION = eval $VERSION;
  8.  
  9. my %module = (MacOS   => 'Mac',
  10.           MSWin32 => 'Win32',
  11.           os2     => 'OS2',
  12.           VMS     => 'VMS',
  13.           epoc    => 'Epoc',
  14.           NetWare => 'Win32', # Yes, File::Spec::Win32 works on NetWare.
  15.           symbian => 'Win32', # Yes, File::Spec::Win32 works on symbian.
  16.           dos     => 'OS2',   # Yes, File::Spec::OS2 works on DJGPP.
  17.           cygwin  => 'Cygwin');
  18.  
  19. my $module = $module{$^O} || 'Unix';
  20.  
  21. require "File/Spec/$module.pm";
  22. @ISA = ("File::Spec::$module");
  23.  
  24. 1;
  25.  
  26. __END__
  27.  
  28.