Re: How to create a package level variable

[Chas Owens]

On 8/24/07, Mr. Shawn H. Corey <[EMAIL PROTECTED]> wrote:
> Tom Phoenix wrote:
> > Do you spell it initialised or initialized?
>
> Yes.
>
>  british-english:  initialise
> american-english:  initialize
snip

Yes, but in Perl you have to choose one and stick to it.  The original
code example was:

package XYZ;

$XYZ::db_initialised = 0;

sub init_db() {
    DB::init() unless $XYZ::db_initialized;
    $XYZ::db_initialized = 1;
}

or

package XYZ;

my $db_initialised = 0;

sub init_db() {
    DB::init() unless $db_initialized;
    $db_initialized = 1;
}

Unless you have some funky source filter installed that normalizes
spelling variants Perl is going to have a problem.  This is why the
strict pragma is so important.

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/