blob: 552515627862b1797bcbb0a5e9e7c2d8f647197b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
# $File: //local/member/autrijus/Win32-Exe/lib/Win32/Exe/PE.pm $ $Author: autrijus $
# $Revision: #6 $ $Change: 1130 $ $Date: 2004-02-17T15:40:29.640821Z $
package Win32::Exe::PE;
use strict;
use base 'Win32::Exe';
use constant SUBFORMAT => (
Machine => 'v',
NumSections => 'v',
TimeStamp => 'V',
SymbolTable => 'V',
_ => 'a4',
OptHeaderSize => 'v',
Characteristics => 'v',
Data => 'a*',
);
use constant DISPATCH_FIELD => 'OptHeaderSize';
use constant DISPATCH_TABLE => (
'0' => '',
'*' => 'PE::Header',
);
1;
|