(perl #133951) don't write an invalid lib/buildcustomize.pl
authorTony Cook <tony@develop-help.com>
Mon, 25 Mar 2019 05:11:16 +0000 (16:11 +1100)
committerTony Cook <tony@develop-help.com>
Sun, 14 Apr 2019 23:26:29 +0000 (09:26 +1000)
Cwd under miniperl (at this point) can't determine the current
directory if some ancestor directory isn't readable.

So Cwd::getcwd() would return undef, and write_buildcustomize.pl
would write out a list of paths relative to / rather than to the cwd.

write_buildcustomize.pl

index e82f931..862b09f 100644 (file)
@@ -61,6 +61,9 @@ require Cwd;
 
 my $cwd  = Cwd::getcwd();
 
+defined $cwd
+  or die "$0: Can't determine current working directory\n";
+
 # lib must be last, as the toolchain modules write themselves into it
 # as they build, and it's important that @INC order ensures that the partially
 # written files are always masked by the complete versions.