cvsuser 01/09/15 08:45:28
Modified: . assemble.pl
Log:
And the same again: Parrot/Opcode.pm wasn't "..-aware".
Revision Changes Path
1.21 +2 -2 parrot/assemble.pl
Index: assemble.pl
===================================================================
RCS file: /home/perlcvs/parrot/assemble.pl,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -w -r1.20 -r1.21
--- assemble.pl 2001/09/14 18:06:10 1.20
+++ assemble.pl 2001/09/15 15:45:28 1.21
@@ -18,7 +18,7 @@
'listing=s'));
if($options{'version'}) {
- print $0,'Version $Id: assemble.pl,v 1.20 2001/09/14 18:06:10 mon Exp $ ',"\n";
+ print $0,'Version $Id: assemble.pl,v 1.21 2001/09/15 15:45:28 mon Exp $ ',"\n";
exit;
}
@@ -60,7 +60,7 @@
# get opcodes
-my %opcodes = Parrot::Opcode::read_ops();
+my %opcodes = Parrot::Opcode::read_ops(-f "../opcode_table" ? "../opcode_table" :
"opcode_table");
constantize(Parrot::Opcode::fingerprint()); # Make it constant zero.
