generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add $! to errors, use script basename.

Browse Source 
Reviewed-by: Richard Levitte <levitte@openssl.org>
This commit is contained in:
Rich Salz 2015-06-23 07:27:23 -04:00 committed by Rich Salz
parent 4ba81134dc
commit ce7e647bc2
1 changed files with 4 additions and 5 deletions

9
crypto/objects/objxref.pl

@ -7,7 +7,7 @@ my %oid_tbl;
my ($mac_file, $xref_file) = @ARGV; my ($mac_file, $xref_file) = @ARGV;
open(IN, $mac_file) || die "Can't open $mac_file"; open(IN, $mac_file) || die "Can't open $mac_file, $!\n";
# Read in OID nid values for a lookup table. # Read in OID nid values for a lookup table.
@ -19,7 +19,7 @@ while (<IN>)
} }
close IN; close IN;
open(IN, $xref_file) || die "Can't open $xref_file"; open(IN, $xref_file) || die "Can't open $xref_file, $!\n";
my $ln = 1; my $ln = 1;
@ -57,8 +57,7 @@ my @srt2 = sort
} @xrkeys; } @xrkeys;
my $pname = $0; my $pname = $0;
$pname =~ s|.*/||;
$pname =~ s|^.[^/]/||;
print <<EOF; print <<EOF;
/* AUTOGENERATED BY $pname, DO NOT EDIT */ /* AUTOGENERATED BY $pname, DO NOT EDIT */
@ -111,6 +110,6 @@ sub check_oid
my ($chk) = @_; my ($chk) = @_;
if (!exists $oid_tbl{$chk}) if (!exists $oid_tbl{$chk})
{ {
die "Not Found \"$chk\"\n"; die "Can't find \"$chk\", $!\n";
} }
} }