Perhaps

• you could give the text of the error message . . .
• you could give the code showing where $compname is set
• you could give the code for your err sub

You'll probably get a better answer.