✏️ 编辑：OS2.pm
路径：
/usr/local/share/perl5/5.32/URI/file/OS2.pm
大小：617 B · 修改：2026-09-03 22:49:40 · 权限：0444 · 只读（保存会失败）
← 返回目录
👁 查看
⬇ 下载
package URI::file::OS2; use strict; use warnings; use parent 'URI::file::Win32'; our $VERSION = '5.37'; # The Win32 version translates k:/foo to file://k:/foo (?!) # We add an empty host sub _file_extract_authority { shift; # $class 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;
💾 保存
取消
保存为 UTF-8，换行统一为 LF