一个奇怪的现象 Cwd模块

一个奇怪的现象 Cwd模块

[scott@FreeBSD ~/perl]$ cat cwd.pl
#!/usr/bin/perl
#
use Cwd;
$dir = getcwd();
print "$dir\n";
[scott@FreeBSD ~/perl]$ perl cwd.pl
/usr/home/scott/perl                # 这里多了/usr,不知道是什么原因
[scott@FreeBSD ~/perl]$ pwd
/home/scott/perl
[scott@FreeBSD ~/perl]$

同样的程序我在其他机器上试验过,没有上面这种现象。
有link之类的吗
哦,可能是FreeBSD的特性,新创建的用户在/usr/home/和/home都有相应的目录的,但是没看见有连接。
bujie
可以把cwd模块翻出来研究研究