Hello you very able, helpful people....

I have a Common.pm module used throughout all my other modules.

I have the following:

our @EXPORT = qw/$ERRORSTRING $DAY $MONTH $YEAR/;

($DAY, $MONTH, $YEAR) = (localtime)[3,4,5];
$YEAR+=1900;
$MONTH+=1;
$ERRORSTRING = q($DAY/$MONTH/$YEAR ERROR [$this] : $error\n);

Now I want to try to use this in my code, replacing $this by the
Package::subroutine name, and $error  in every package, by the
appropriate error I have detected.

But, alas it does not work. Complains about the fact the $this and
$error have not been defined in the Common.pm.

What is a pretty standard way (if such a thing exists) of doing this
type of thing. I want to make all my errors look similar....varying only
the $this part and the actual error.

Thanks in advance.
Hamish



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to