The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
  if (int_q($a)) {
    emit_code('set', [int_reg_q($b) ? 'I0' : 'N0', $a]);
    $a = 'I0';
  } elsif (num_q($a)) {
    emit_code('set', ['N0', $a]);
    $a = 'N0';
  } elsif (!reg_q($a)) {
    printf STDERR "jakoc: Syntax error in comparison on line %d!\n", $line;
  }

  if (int_q($b)) {
    emit_code('set', [int_reg_q($a) ? 'I0' : 'N0', $b]);
    $b = 'I0';
  } elsif (num_q($b)) {
    emit_code('set', ['N0', $b]);
    $b = 'N0';
  } elsif (!reg_q($b)) {
    printf STDERR "jakoc: Syntax error in comparison on line %d!\n", $line;
  }

1 POD Error

The following errors were encountered while parsing the POD:

Around line 589:

Unknown directive: =no