diff options
Diffstat (limited to 'crypto/objects')
| -rw-r--r-- | crypto/objects/obj_dat.pl | 2 | ||||
| -rw-r--r-- | crypto/objects/objects.pl | 4 | ||||
| -rw-r--r-- | crypto/objects/objxref.pl | 6 |
3 files changed, 6 insertions, 6 deletions
diff --git a/crypto/objects/obj_dat.pl b/crypto/objects/obj_dat.pl index d726f2cb76..0bf1e4878f 100644 --- a/crypto/objects/obj_dat.pl +++ b/crypto/objects/obj_dat.pl @@ -257,7 +257,7 @@ foreach (@out) } $out=$t; } - chop $out; + chop $out; # Get rid of the last comma print OUT "$out"; } else diff --git a/crypto/objects/objects.pl b/crypto/objects/objects.pl index ea2caf5ec2..107647adbc 100644 --- a/crypto/objects/objects.pl +++ b/crypto/objects/objects.pl @@ -5,7 +5,7 @@ $max_nid=0; $o=0; while(<NUMIN>) { - chop; + s|\R$||; $o++; s/#.*$//; next if /^\s*$/; @@ -28,7 +28,7 @@ $Cname=""; $o=0; while (<IN>) { - chop; + s|\R$||; $o++; if (/^!module\s+(.*)$/) { diff --git a/crypto/objects/objxref.pl b/crypto/objects/objxref.pl index 05b987ad16..7ebd74cdcc 100644 --- a/crypto/objects/objxref.pl +++ b/crypto/objects/objxref.pl @@ -13,7 +13,7 @@ open(IN, $mac_file) || die "Can't open $mac_file, $!\n"; while (<IN>) { - chomp; + s|\R$||; # Better chomp my ($name, $num) = /^(\S+)\s+(\S+)$/; $oid_tbl{$name} = $num; } @@ -25,7 +25,7 @@ my $ln = 1; while (<IN>) { - chomp; + s|\R$||; # Better chomp s/#.*$//; next if (/^\S*$/); my ($xr, $p1, $p2) = /^(\S+)\s+(\S+)\s+(\S+)/; @@ -112,6 +112,6 @@ sub check_oid my ($chk) = @_; if (!exists $oid_tbl{$chk}) { - die "Can't find \"$chk\", $!\n"; + die "Can't find \"$chk\"\n"; } } |