Jeff Pang wrote:
Do you mean something as below?
my $foo::shared = '';
my @bar::shared = ();
No. Take a lokk at this code:
http://tobyinkster.co.uk/Software/linux/jukebox/jukebox-2.19b.pl
...
# Shared variables for passing info around.
my @queue : shared = (); # queue
my $tQueue : shared = ''; # pretty-printed queue
my @allSongs : shared = (); # list of songs
my $nowSong : shared = ''; # current song file name
my $nowSongDetails : shared = ''; # pretty song pretty-printed details
my $instaQuit : shared = FALSE; # used to pass back and forth quitting
data
my $vol : shared = 100; # volume
my $mute : shared = 0; # used to store volume when jukebox is
muted
my $dofades : shared = 1; # should we use the fade effect?
...
--
--beast
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
