26 lines
570 B
Perl
26 lines
570 B
Perl
# Copyright 2004 by Audrey Tang <cpan@audreyt.org>
|
|
|
|
package Win32::Exe::PE::Header;
|
|
|
|
use strict;
|
|
use base 'Win32::Exe::PE';
|
|
use constant SUBFORMAT => (
|
|
Magic2 => 'v',
|
|
LMajor => 'C',
|
|
LMinor => 'C',
|
|
CodeSize => 'V',
|
|
IDataSize => 'V',
|
|
UDataSize => 'V',
|
|
EntryPointRVA => 'V',
|
|
BaseOfCode => 'V',
|
|
Data => 'a*',
|
|
);
|
|
use constant MEMBER_CLASS => 'Data';
|
|
use constant DISPATCH_FIELD => 'Magic2';
|
|
use constant DISPATCH_TABLE => (
|
|
0x20b => 'PE::Header::PE32Plus',
|
|
'*' => 'PE::Header::PE32',
|
|
);
|
|
|
|
1;
|