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

[openssl.git] / util / mk1mf.pl

diff --git a/util/mk1mf.pl b/util/mk1mf.pl
index 41441305677e8add95f4fa002c333f62e9ede3f6..3a9f0d76b8267f3f82ea0e570ef18943deef8890 100755 (executable)
--- a/util/mk1mf.pl
+++ b/util/mk1mf.pl
@@ -553,7 +553,7 @@ if ($fips)
                        {
                        open (IN, "util/fipslib_path.txt") || fipslib_error();
                        $fipslibdir = <IN>;
-                       chomp $fipslibdir;
+                       $fipslibdir =~ s|\R$||;
                        close IN;
                        }
                fips_check_files($fipslibdir,
@@ -1159,7 +1159,7 @@ sub do_defs
                elsif ($var eq "SSLOBJ")
                        { $ret.="\$(OBJ_D)\\\$(SSL).res "; }
                }
-       chomp($ret);
+       chomp($ret);            # Does this actually do something? /RL
        $ret.="\n\n";
        return($ret);
        }