On Wed, 6 Oct 1999, Christopher Andersson wrote:
>Hello,
>
>When my PostAuthHook i supposed to run, I get this error message:
>
>Global symbol "$p" requires explicit package name at (eval 21) line 1, <FILE> chunk
>62.
>
>My hook looks like this:
>
> sub { $p = ${$_[1]}; \
> my $username = $p->getAttrByNum($Radius::Radius::USER_NAME); \
> print $username; \
> print "\n"; \
> }
>
>What can be wrong? (I dont think perl is that easey)
They must have done a 'use strict' in their code; I would recommend
changing the first line to:
sub { my $p = ${$_[1]}; \
Then it is no longer a package global. If it *is* a global variable
(which I doubt, judging from how you use it), you'll need to specify a
package (replace $p with $main::p or something like that).
===========================================================
David M. Lloyd mailto:[EMAIL PROTECTED]
Administrator
Internet Express, Inc.
802 W. Broadway, Suite 0101
Madison, WI. 53713-1866
Voice: (608) 663-5555 http://www.inxpress.net
Fax: (608) 663-5595 mailto:[EMAIL PROTECTED]
Data: (608) 663-5551 mailto:[EMAIL PROTECTED]
===========================================================
===
Archive at http://www.thesite.com.au/~radiator/
To unsubscribe, email '[EMAIL PROTECTED]' with
'unsubscribe radiator' in the body of the message.
