1 package URI::file::OS2;
3 require URI::file::Win32;
4 @ISA=qw(URI::file::Win32);
6 # The Win32 version translates k:/foo to file://k:/foo (?!)
9 sub _file_extract_authority
12 return $1 if $_[0] =~ s,^\\\\([^\\]+),,; # UNC
13 return $1 if $_[0] =~ s,^//([^/]+),,; # UNC too?
15 if ($_[0] =~ m#^[a-zA-Z]{1,2}:#) { # allow for ab: drives
22 my $p = &URI::file::Win32::file;
23 return unless defined $p;