diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Win32/Exe/PE.pm')
-rwxr-xr-x | Master/tlpkg/tlperl/lib/Win32/Exe/PE.pm | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/Win32/Exe/PE.pm b/Master/tlpkg/tlperl/lib/Win32/Exe/PE.pm new file mode 100755 index 00000000000..55251562786 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/Win32/Exe/PE.pm @@ -0,0 +1,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; |