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:
Eelco Dolstra 2014-11-20 11:45:01 +01:00
parent 05cddf0f5a
commit 048ec3d3f2

View file

@ -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";
} }