diff options
author | Rich Salz <rsalz@akamai.com> | 2015-06-23 07:27:23 -0400 |
---|---|---|
committer | Rich Salz <rsalz@openssl.org> | 2015-06-23 08:39:52 -0400 |
commit | ce7e647bc2c328404b1e3cdac6211773afdefe07 (patch) | |
tree | 49de5847e767f85546fdecb2a736bd6f53c2588e /crypto/objects/objxref.pl | |
parent | 4ba81134dc2ee1a169e39d6bc2a942ca1004aa8e (diff) |
Add $! to errors, use script basename.
Reviewed-by: Richard Levitte <levitte@openssl.org>
Diffstat (limited to 'crypto/objects/objxref.pl')
-rw-r--r-- | crypto/objects/objxref.pl | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/crypto/objects/objxref.pl b/crypto/objects/objxref.pl index 1913b9d133..a1900cab5c 100644 --- a/crypto/objects/objxref.pl +++ b/crypto/objects/objxref.pl @@ -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"; } } |