wbrawner/openssl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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
Show stats Download patch file Download diff file Expand all files Collapse all files

9
crypto/objects/objxref.pl
View file

@ -7,7 +7,7 @@ my %oid_tbl;
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.
@ -19,7 +19,7 @@ while (<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;
@ -57,8 +57,7 @@ my @srt2 = sort
} @xrkeys;
my $pname = $0;
$pname =~ s|^.[^/]/||;
$pname =~ s|.*/||;
print <<EOF;
/* AUTOGENERATED BY $pname, DO NOT EDIT */
@ -111,6 +110,6 @@ sub check_oid
my ($chk) = @_;
if (!exists $oid_tbl{$chk})
{
die "Not Found \"$chk\"\n";
die "Can't find \"$chk\", $!\n";
}
}