Fix some issues near recent chomp changes.
[openssl.git] / util / mkfiles.pl
index 4fbe29ac755aa84e210209507020ec1ed252721e..55dfbc64e376acd12a77adeaf3c3df7d5d4b4f4e 100755 (executable)
@@ -107,8 +107,8 @@ while (<IN>)
                                {
                                $b=$`;
                                $o.=$b." ";
                                {
                                $b=$`;
                                $o.=$b." ";
-                               $b=<IN>;
-                               $b =~ s|\R$||;
+                               $b = "" unless defined($b = <IN>);
+                               $b =~ s{\R$}{};
                                }
                        else
                                {
                                }
                        else
                                {