On Sat, Sep 15, 2001 at 01:15:57AM -0700, Brent Dax wrote:
> As for the 5.6 thing...I think we're supposed to support 5.005 and
> above. Can you tell what Parrot::Opcode needs it for? (And if it's for
> 'our', I'm going to punch someone... :^) )
Er...I think it IS for our, actually. :> I'm so used to using it, I
didn't realize I was introducing a 5.6ism. The silly thing is, I
deliberately avoided using "open(my $fh, $file)" to keep from requiring
5.6...
I notice that someone did add a "use 5.6.0" to Parrot::Opcode--here's
a patch which removes it, and the offending ours.
- Damien
Index: Parrot/Opcode.pm
===================================================================
RCS file: /home/perlcvs/parrot/Parrot/Opcode.pm,v
retrieving revision 1.3
diff -u -r1.3 Opcode.pm
--- Parrot/Opcode.pm 2001/09/15 00:57:42 1.3
+++ Parrot/Opcode.pm 2001/09/15 08:33:48
@@ -1,12 +1,11 @@
package Parrot::Opcode;
-use 5.6.0;
use strict;
use Symbol;
use Digest::MD5 qw(&md5_hex);
-our %opcode;
-our $fingerprint;
+my %opcode;
+my $fingerprint;
sub _load {
my $file = @_ ? shift : "opcode_table";
