package File::Spec; use strict; use vars qw(@ISA $VERSION); $VERSION = '3.67'; $VERSION =~ tr/_//d; my %module = (MacOS => 'Mac', MSWin32 => 'Win32', os2 => 'OS2', VMS => 'VMS', epoc => 'Epoc', NetWare => 'Win32', # Yes, File::Spec::Win32 works on NetWare. symbian => 'Win32', # Yes, File::Spec::Win32 works on symbian. dos => 'OS2', # Yes, File::Spec::OS2 works on DJGPP. cygwin => 'Cygwin', amigaos => 'AmigaOS'); my $module = $module{$^O} || 'Unix'; require "File/Spec/$module.pm"; @ISA = ("File::Spec::$module"); 1; __END__
Name | Type | Size | Permission | Actions |
---|---|---|---|---|
Spec | Folder | 0755 |
|
|
Basename.pm | File | 5.3 KB | 0644 |
|
Glob.pm | File | 2 KB | 0644 |
|
Path.pm | File | 18.06 KB | 0644 |
|
Spec.pm | File | 619 B | 0644 |
|
Temp.pm | File | 45.83 KB | 0644 |
|