perl 5 出错

2010childish

执行命令时提示如下信息：Please provide a password for the domain root:
Argument "" isn't numeric in addition (+) at /usr/lib/perl5/vendor_perl/5.8.8/Net/LDAP.pm line 406.
/usr/sbin/smbldap-passwd: user root doesn't exist
相对应的406行如下
   404   if (exists $arg->{scope}) {
    405     my $sc = lc $arg->{scope};
    406     $stash{scope} = 0 + (exists $scope{$sc} ? $scope{$sc} : $sc);
    407   }
    408
    409   if (exists $arg->{deref}) {