Na}{

File Content: `OS2.pm`

package URI::file::OS2;

use strict;
use warnings;

use parent 'URI::file::Win32';

our $VERSION = '1.73';
$VERSION = eval $VERSION;

# 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	1501 bytes	0644
FAT.pm	523 bytes	0644
Mac.pm	2511 bytes	0644
OS2.pm	587 bytes	0644
QNX.pm	363 bytes	0644
Unix.pm	1048 bytes	0644
Win32.pm	1783 bytes	0644

File Content: OS2.pm

File Content: `OS2.pm`