custom error handling 1

[arcnon]

what I am tring to accomplish, is create a sub that I can pass my custom error data.

I am looking for a better way of pulling it off.

error('error:',"Incorrect interface call should be 'RST'").die;

sub error{
	print join("\n", @_)."\n";
}

Is there a flag that I can use to pass the line number instead of die?

 

[PaulTEG]

$line=__LINE__;

and pass $line to your sub

HTH
--Paul

cigless ...

 

[arcnon]

thanks paul