Use "our" instead of "my"

our $var = "value";

Steve

-----Original Message-----
From: perl-win32-users-bounces@[...].com [mailto:perl-win32-users-bounces@[...].com] On Beha
lf Of Greg Aiken
Sent: Monday, July 07, 2008 5:01 PM
To: perl-win32-users@[...].com
Subject: trouble accessing fully qualified $main::variable contents

can anyone please explain why when I am in the subroutine,
and I attempt to print a variable that's been declared and assigned a value
in the main package - why I am unable to print the value of the main
package's variable (despite that I am using the fully qualified variable
name)?

is this my fault or a bug?

it seems to work in some instances, but not work in others...

##########################################

use strict;
use warnings;

my $var = "value";

&subroutine;

sub subroutine {
        print "value of main package's main::var is $main::var\n";
}

############ when above program is run, std out shows ############

C:\perlsrc> test.pl

Name "main::var" used only once: possible typo at C:\perlsrc\TEST.PL line 9.

Use of uninitialized value in concatenation (.) or string at
c:\perlsrc\TEST.PL line 9.

value of main package's main::var is



_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@[...].com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@[...].com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs