Re: [MacPerl] destroying the resource fork

[Chris Nandor]

Here's another way, if you really want to destroy it and avoid copying:

        use Fcntl ();
        use POSIX ();

        my $resfork = POSIX::open($file,
                &POSIX::O_WRONLY | &POSIX::O_TRUNC | &Fcntl::O_RSRC
        );
        POSIX::close($resfork);

This will truncate the resource fork to size 0, which essentially deletes it.

-- 
Chris Nandor                      [EMAIL PROTECTED]    http://pudge.net/
Open Source Development Network    [EMAIL PROTECTED]     http://osdn.com/