mk1mf.pl: replace chop to make it work in mixture of perls for Windows.
authorAndy Polyakov <appro@openssl.org>
Sun, 15 Jul 2012 13:40:04 +0000 (13:40 +0000)
committerAndy Polyakov <appro@openssl.org>
Sun, 15 Jul 2012 13:40:04 +0000 (13:40 +0000)
util/mk1mf.pl

index d818c61b9f85bf471cf7eb6c6cedbffe7def7d69..e27434d2673e717c733d0d77812b8ce7fe353f59 100755 (executable)
@@ -347,7 +347,7 @@ open(IN,"<$infile") || die "unable to open $infile:$!\n";
 $_=<IN>;
 for (;;)
        {
 $_=<IN>;
 for (;;)
        {
-       chop;
+       s/\s*$//; # was chop, didn't work in mixture of perls for Windows...
 
        ($key,$val)=/^([^=]+)=(.*)/;
        if ($key eq "RELATIVE_DIRECTORY")
 
        ($key,$val)=/^([^=]+)=(.*)/;
        if ($key eq "RELATIVE_DIRECTORY")