Fix bad operator
Spotted by Perl 5.20: Possible precedence issue with control flow operator at /usr/lib/perl5/site_perl/5.20.1/x86_64-linux-gnu-thread-multi/Nix/Utils.pm line 46.
This commit is contained in:
parent
05cddf0f5a
commit
048ec3d3f2
|
@ -43,5 +43,5 @@ sub readFile {
|
||||||
sub mkTempDir {
|
sub mkTempDir {
|
||||||
my ($name) = @_;
|
my ($name) = @_;
|
||||||
return tempdir("$name.XXXXXX", CLEANUP => 1, DIR => $ENV{"TMPDIR"} // $ENV{"XDG_RUNTIME_DIR"} // "/tmp")
|
return tempdir("$name.XXXXXX", CLEANUP => 1, DIR => $ENV{"TMPDIR"} // $ENV{"XDG_RUNTIME_DIR"} // "/tmp")
|
||||||
or die "cannot create a temporary directory";
|
|| die "cannot create a temporary directory";
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue