Initial Commit
This commit is contained in:
25
database/perl/vendor/lib/Win32/Exe/PE/Header.pm
vendored
Normal file
25
database/perl/vendor/lib/Win32/Exe/PE/Header.pm
vendored
Normal file
@@ -0,0 +1,25 @@
|
||||
# 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;
|
||||
Reference in New Issue
Block a user