Assert that SSLfatal() only gets called once

[openssl.git] / ms / segrenam.pl

diff --git a/ms/segrenam.pl b/ms/segrenam.pl
index 7e64c8e36fc469b240ee975c8afa094b2726cf27..353a0ef50aea6537a1b2f9ecf45e28bbfcb39e39 100755 (executable)
--- a/ms/segrenam.pl
+++ b/ms/segrenam.pl
@@ -1,4 +1,10 @@
-#!/usr/bin/env perl
+#! /usr/bin/env perl
+# Copyright 2011-2016 The OpenSSL Project Authors. All Rights Reserved.
+#
+# Licensed under the OpenSSL license (the "License").  You may not use
+# this file except in compliance with the License.  You can obtain a copy
+# in the file LICENSE in the source distribution or at
+# https://www.openssl.org/source/license.html
 
 my $quiet = 1;
 
@@ -45,7 +51,7 @@ foreach (@files) {
     # read IMAGE_FILE_HEADER
     sysread(FD,$coff,20)==20 || die "$file is too short";
     ($Machine,$NumberOfSections,$TimeDateStamp,
-     $PointerToSymbolTable,$NumberOfSysmbols,
+     $PointerToSymbolTable,$NumberOfSymbols,
      $SizeOfOptionalHeader,$Characteristics)=unpack("SSIIISS",$coff);
 
     # skip over IMAGE_OPTIONAL_HEADER