Perl's chop / chomp considered bad, use a regexp instead

[openssl.git] / crypto / objects / objects.pl

diff --git a/crypto/objects/objects.pl b/crypto/objects/objects.pl
index ea2caf5ec254af8a4ea0faf7fc5357b0d593ddfe..107647adbc40878fb9d926ff83f03464701f953c 100644 (file)
--- 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+(.*)$/)
                {