mirror of
https://github.com/openssl/openssl.git
synced 2024-12-03 05:41:46 +08:00
339638b586
Always use the current year in generating output files, rather than trying to base is on the modtime of the script or input, as that can vary depending on the ability of the local OS to keep those accurate. Fixes #10744 Reviewed-by: Shane Lontis <shane.lontis@oracle.com> Reviewed-by: Richard Levitte <levitte@openssl.org> (Merged from https://github.com/openssl/openssl/pull/10776)
31 lines
802 B
Perl
Executable File
31 lines
802 B
Perl
Executable File
#! /usr/bin/env perl
|
|
# Copyright 1995-2018 The OpenSSL Project Authors. All Rights Reserved.
|
|
#
|
|
# Licensed under the Apache License 2.0 (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 $obj_dat_h = $ARGV[0];
|
|
|
|
# The year the output file is generated.
|
|
my $YEAR = [localtime()]->[5] + 1900;
|
|
|
|
open IN, '<', $obj_dat_h
|
|
|| die "Couldn't open $obj_dat_h : $!\n";
|
|
|
|
while(<IN>) {
|
|
s|\R$||; # Better chomp
|
|
|
|
next unless m|^\s+((0x[0-9A-F][0-9A-F],)*)\s+/\*\s\[\s*\d+\]\s(OBJ_\w+)\s\*/$|;
|
|
|
|
my $OID = $1;
|
|
my $OBJname = $3;
|
|
|
|
$OID =~ s|0x|\\x|g;
|
|
$OID =~ s|,||g;
|
|
|
|
print "$OBJname=\"$OID\"\n";
|
|
}
|
|
close IN;
|