Illegal seek error on perl app.

[Haunter]

I am receiveing this error when trying to delete a file off the server from a web page. I have no idea what it means and am at a loss about how to correct the problem in my web application. The file does get deleted but the error does persists despite the execution of the delete of the file. Any suggestion would be appreciated.

I am using the unlink command in perl
if (-e $file_to_delete) { unlink ($file_to_delete) || &cgiError ("Error Deleting $file_to_delete:", "$!"

The error in the $! variable is "Illegal seek". Any help would be appreciated.

 

[missbarbell]

I think you need the following:

if (-e $file_to_delete) {
&cgiError("Error Deleting $file_to_delete:", "$!&quot
unless(unlink($file_to_delete));
}

As the unlink function returns the number of files deleted, you were always saying there was an error condition, even though there was no error.

HTH,
Barbie.
Leader of Birmingham Perl Mongers

http://birmingham.pm.org