Hmm ok, what would be nice is to do something like this:
(I have a function that returns true if the perl version is the same or higher than
the specified number)
package Monkey;
use strict;
if(gotperlv(5.6)) {
our $bar
our $foo;
} else {
use vars qw($bar $foo);
}
Except the ours would only apply to that black and wouldn't do too much good
if I'm understanding this right. And also would it not always do the use vars
since it gets done in the BEGIN black ?
So the trick is how to I pull that off and make the ours
as if I'd done
package Monkey;
our $bar;
our $foo;
if gotperlv(5.6) returned true and
package Monkey;
use vars qw($foo $bar);
If it returns false.
Maybe I'm just crazy but it seems there should be a way!
Dan
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
