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

[openssl.git] / util / sp-diff.pl

diff --git a/util/sp-diff.pl b/util/sp-diff.pl
index 9d6c60387fa1c862f4c3fe4a4fe86a30c48e60ee..57e635bca38fef59c2b99572fdfb022e6cf44131 100755 (executable)
--- a/util/sp-diff.pl
+++ b/util/sp-diff.pl
@@ -54,7 +54,7 @@ sub loadfile
                $header=0 if /^[dr]sa/;
                if (/^type/) { $header=0; next; }
                next if $header;
-               chop;
+               s|\R$||;
                @a=split;
                if ($a[0] =~ /^[dr]sa$/)
                        {