cvs commit: parrot assemble.pl

[simon]

simon       01/09/13 07:38:31

  Modified:    .        assemble.pl
  Log:
  Why don't I actually *test* this stuff before applying it, eh?
  
  Revision  Changes    Path
  1.12      +2 -2      parrot/assemble.pl
  
  Index: assemble.pl
  ===================================================================
  RCS file: /home/perlcvs/parrot/assemble.pl,v
  retrieving revision 1.11
  retrieving revision 1.12
  diff -u -w -r1.11 -r1.12
  --- assemble.pl       2001/09/13 13:42:41     1.11
  +++ assemble.pl       2001/09/13 14:38:31     1.12
  @@ -103,9 +103,9 @@
            my $test;
            my($first,$last)=($arg_t[0],$arg_t[-1]);
            if($first ne $last) {
  -             $test="$opcode\_$first\_$last";
  +             $test="${opcode}_${first}_$last";
            } else {
  -             $test="$opcode\_$first";
  +             $test="${opcode}_$first";
            }
            my($found_op)=0;
            foreach my $op (grep($_=~/^$opcode/,keys(%opcodes))) {