mirror of
https://git.savannah.gnu.org/git/parallel.git
synced 2024-11-23 14:38:05 +00:00
28 lines
595 B
Perl
28 lines
595 B
Perl
|
package File::Spec;
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use vars qw(@ISA $VERSION);
|
||
|
|
|
||
|
|
$VERSION = '3.30';
|
||
|
|
$VERSION = eval $VERSION;
|
||
|
|
|
||
|
|
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');
|
||
|
|
|
||
|
|
my $module = $module{$^O} || 'Unix';
|
||
|
|
|
||
|
|
require "File/Spec/$module.pm";
|
||
|
|
@ISA = ("File::Spec::$module");
|
||
|
|
|
||
|
|
1;
|
||
|
|
|
||
|
|
__END__
|
||
|
|
|