regexec.c: Fix failing CI 32-bit tests

[perl5.git] / Cross / generate_config_sh

diff --git a/Cross/generate_config_sh b/Cross/generate_config_sh
index 408f5f4..203885e 100755 (executable)
--- a/Cross/generate_config_sh
+++ b/Cross/generate_config_sh
@@ -2,22 +2,12 @@
 
 ##############################################################################
 #
-#      Ok, so there is this buildsystem that has variables set in shell
-#      like this:
+#      generate_config_sh
+#              Process that takes an automatically generated config.sh
+#              file and allows the environment to overload the values
+#              automatically discovered by Configure on our target platform.
 #
-#      cc='gcc'
-#
-#      This means we can go
-#
-#      if test "${AR+set}" != set; then
-#              ar='arm-linux-ar'
-#      else 
-#              ar=${AR}
-#      fi
-#
-#      Right??? WRONG!
-#
-#      Damn perl installation *PARSES* and *PATTERN MATCHES* this file.
+#      Author  Redvers Davies <red@criticalintegration.com>
 #
 ##############################################################################
 
@@ -54,7 +44,7 @@ if ($config eq "") {
        die("Please run me as generate_config_sh path/to/original/config.sh");
 }
 
-open(FILE, "$config") || die("Unable to open $config");
+open(FILE, '<', $config) || die("Unable to open $config");
 
 my $line_in;
 while ($line_in = <FILE>) {