Damien Neil:
# 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...
*THWAP*
# 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.
#
# 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);
use vars qw(%opcode $fingerprint); #or strict will throw a tantrum
#
# -our %opcode;
# -our $fingerprint;
# +my %opcode;
# +my $fingerprint;
#
# sub _load {
# my $file = @_ ? shift : "opcode_table";
--Brent Dax
[EMAIL PROTECTED]
They *will* pay for what they've done.
