diff options
author | Norbert Preining <preining@logic.at> | 2010-05-12 16:54:37 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2010-05-12 16:54:37 +0000 |
commit | 661c41a09e39a182865e0b51e34cc995a0dc96e8 (patch) | |
tree | 2f79bb1406e22fdcb2587be8ffda6c0c609d7932 /Master/tlpkg/tlperl/lib/Win32/Exe/PE/Header.pm | |
parent | b645030efc22e13c2498a1522083634ab91b2de1 (diff) |
move tlperl.straw to tlperl
git-svn-id: svn://tug.org/texlive/trunk@18210 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Win32/Exe/PE/Header.pm')
-rwxr-xr-x | Master/tlpkg/tlperl/lib/Win32/Exe/PE/Header.pm | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/Win32/Exe/PE/Header.pm b/Master/tlpkg/tlperl/lib/Win32/Exe/PE/Header.pm new file mode 100755 index 00000000000..03888fedbd8 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/Win32/Exe/PE/Header.pm @@ -0,0 +1,26 @@ +# $File: //local/member/autrijus/Win32-Exe/lib/Win32/Exe/PE/Header.pm $ $Author: autrijus $ +# $Revision: #5 $ $Change: 1130 $ $Date: 2004-02-17T15:40:29.640821Z $ + +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; |