Dear Fred,

without testing it, just some ideas. Try to exchange:

To be on the safe side:

>       my $_size = -s $File::Find::name;
        my $_size = -s $File::Find::fullname;

To count links in:

>       find ( $wanted, "$dir" );
        find ( { wanted => $wanted, follow => 1 }, $dir );

Check out via telnet:

        du /etc
        du -L /etc

And the results may be different, if you are logged in as root or
if you run your program as user nobody because of access rights.

Ernest




--
Yours sincerely
Mit freundlichen Grüßen

Ernest Lergon

                VIRTUALITAS
Artists online, Fine Arts online, Poets online
        http://www.virtualitas.com/





Reply via email to