cvs commit: parrot disassemble.pl

[dan]

dan         01/09/10 14:45:33

  Modified:    .        disassemble.pl
  Log:
  Happier about blanks in opcode_table
  
  Revision  Changes    Path
  1.3       +2 -0      parrot/disassemble.pl
  
  Index: disassemble.pl
  ===================================================================
  RCS file: /home/perlcvs/parrot/disassemble.pl,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -w -r1.2 -r1.3
  --- disassemble.pl    2001/09/10 21:26:09     1.2
  +++ disassemble.pl    2001/09/10 21:45:33     1.3
  @@ -26,7 +26,9 @@
   open OPCODES, "<opcode_table" or die "Can't get opcode table, $!/$^E";
   while (<OPCODES>) {
       next if /^\s*#/;
  +    s/^\s+//;
       chomp;
  +    next unless $_;
       my ($name, $args, @types) = split /\s+/, $_;
       next unless defined $name;
       $opcodes{$name}{ARGS} = $args;