my $type = $pf->const_table->constant(0)->type;
if ($type ne Parrot::PackFile::Constant->type_code('PFC_STRING')) {
    $type = Parrot::PackFile::Constant->type_name($type);
    warn "Disassembling without opcode table fingerprint (first constant isn't a string; type = '$type')!";
}

my $ref = ref $pf->const_table->constant(0)->value;
if ($ref ne 'Parrot::String') {
    warn "Cannot disassemble (malformed string as first constant; type = '$ref'!";
}

my $data = ref $pf->const_table->constant(0)->value->data;
if ($data ne $opcode_fingerprint) {
    warn "Cannot disassemble (differing opcode table; data = '$data')!";
}

NAME

disassemble.pl - disassemble the byte code from Parrot Pack Files

SYNOPSIS

perl disassemble.pl FILE

DESCRIPTION

Disassembles the Parrot Pack Files listed on the command line, or from standard input if no file is named.

COPYRIGHT

Copyright (C) 2001 The Parrot Team. All rights reserved.

LICENSE

This program is free software. It is subject to the same license as the Parrot interpreter.