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

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

diff --git a/crypto/objects/obj_dat.pl b/crypto/objects/obj_dat.pl
index d726f2cb76a36be6b37bc920a663bcb9376720d7..0bf1e4878f66dc854df12fb808234395f7efe83b 100644 (file)
--- 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