http://www.perlmonks.org?node_id=665605


in reply to Re^2: Detecting lchown and falling back to chown
in thread Detecting lchown and falling back to chown

Messed up the parameter order. Should probably be (I never call it for more than 1 file at a time): 
sub best_chown($$$) { 
   chown(@_) unless -l $_[2]; 
 }

[download]

In Section Seekers of Perl Wisdom