unpack Perl format is broken

[dvtylr]

Lines 1041-1041 in pack.cc should not be executed in Perl format mode:

    if(!usePerlFormat) {
      formatlen--;    /* Skip '/' separator, does no harm if inputlen == 0 */
      format++;
    }