Current Dir: /snap/core22/2437/usr/lib/x86_64-linux-gnu/perl-base/File/
[DIR] Spec [ delete | rename ]
[FILE] Basename.pm [ edit | delete | rename ]
[FILE] Glob.pm [ edit | delete | rename ]
[FILE] Path.pm [ edit | delete | rename ]
[FILE] Spec.pm [ edit | delete | rename ]
[FILE] Temp.pm [ edit | delete | rename ]
Viewing: /snap/core22/2437/usr/lib/x86_64-linux-gnu/perl-base/File/Spec.pm
package File::Spec;
use strict;
our $VERSION = '3.80';
$VERSION =~ tr/_//d;
my %module = (
MSWin32 => 'Win32',
os2 => 'OS2',
VMS => 'VMS',
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";
our @ISA = ("File::Spec::$module");
1;
__END__