summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Win32/Exe/PE.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Win32/Exe/PE.pm')
-rwxr-xr-xMaster/tlpkg/tlperl/lib/Win32/Exe/PE.pm24
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;