It's because $foo::A_GLOBAL is equivalent to getting the scalar A_GLOBAL in the package foo (which of course does not exist).

update Now you're accessing an array A_GLOBAL in the package foo, not Foo. Perl is case sensitive, after all.

[ ar0n -- want job (boston) ]

update Now you're accessing an array A_GLOBAL in the package foo, not Foo. Perl is case sensitive, after all.

I should explain myself better. I have an object $foo but don't know for sure what pacakge it is from. How do I access it's globals?

my $package = ref($foo);
if ($package) {
    no strict 'refs';
    @global_array = @{"$package::A_GLOBAL_ARRAY"};
}
[download]

Please note that using global arrays is a sign that you have no idea how to correctly program your design (if you even have one). This is especially true if you're doing OO programming.

If you want to work with "global arrays", look into using Exporter.

------
We are the carpenters and bricklayers of the Information Age.

Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement.

Ooops tat was a type that should be:

my @array = @foo::A_GLOBAL

Which fails with no error...

Perl is case-sensitive. 'foo' is not the same as 'Foo'.

------
We are the carpenters and bricklayers of the Information Age.

Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement.

#!/usr/bin/perl -wT
use strict;

package Foo;
use vars qw(@foo);
@foo = qw(a b c);    # global package variable @Foo::foo

package Bar;
my @bar = @Foo::foo; # assigned to lexical variable 

print "@bar\n";      # <==== prints 'a b c'
[download]

-Blake

Best regards,
perl -e "print a|r,p|d=>b|p=>chr 3**2 .7=>t and t"