Na}{

File Content: `OS2.pm`

package URI::file::OS2;

require URI::file::Win32;
@ISA=qw(URI::file::Win32);

# The Win32 version translates k:/foo to file://k:/foo  (?!)
# We add an empty host

sub _file_extract_authority
{
    my $class = shift;
    return $1 if $_[0] =~ s,^\\\\([^\\]+),,;  # UNC
    return $1 if $_[0] =~ s,^//([^/]+),,;     # UNC too?

    if ($_[0] =~ m#^[a-zA-Z]{1,2}:#) {	      # allow for ab: drives
	return "";
    }
    return;
}

sub file {
  my $p = &URI::file::Win32::file;
  return unless defined $p;
  $p =~ s,\\,/,g;
  $p;
}

1;

Name	Size	Permission
Base.pm	1436 bytes	0644
FAT.pm	468 bytes	0644
Mac.pm	2469 bytes	0644
OS2.pm	532 bytes	0644
QNX.pm	320 bytes	0644
Unix.pm	1004 bytes	0644
Win32.pm	1739 bytes	0644

File Content: OS2.pm

File Content: `OS2.pm`