[MacPerl] setting the comment of an alias file

[Gakuji Ohtori]

The FSpDTSetComment function of Mac::MoreFiles sets the comment of the
original file instead of the alias file:

    use Mac::StandardFile;
    use Mac::MoreFiles;

    my $file = StandardGetFile(0, 0)->sfFile;
    my $aliasfile = "$file alias";
    symlink($file, $aliasfile);
    FSpDTSetComment($aliasfile, "test");

Is this the intended behavior?  Any function that sets the comments of
the alias file?

Gaji