[wellylug] Issues with a perl script

[Michael Robinson]

And now to be actually helpful...

On Thu, Oct 26, 2006 at 10:28:34AM +1300, Geraint M. Jones wrote:
>         if (($uid =~ /^\d+$/) && ($gid =~ /^\d+$/))
>         {
>                 mkdir("/profiles/$name", 0700);
>                 chown($uid, $gid, /profiles/$name);

This line (presumably line 16, as Perl helpfully told you; I haven't
counted) should read:

    chown($uid, $gid, "/profiles/$name");

>         }
> }

Do let us know the name of the book, so I can avoid it; books that don't
test their scripts before printing them should be generally avoided.

    -- michael.