298/376: Fix bad operator

[Ludovic Court�s]

civodul pushed a commit to tag 1.8
in repository guix.

commit 048ec3d3f2b53a6a4a3d1215d40ed992944f83a3
Author: Eelco Dolstra <eelco.dols...@logicblox.com>
Date:   Thu Nov 20 11:45:01 2014 +0100

    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.
---
 perl/lib/Nix/Utils.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/perl/lib/Nix/Utils.pm b/perl/lib/Nix/Utils.pm
index 32fb0aa..392c45f 100644
--- a/perl/lib/Nix/Utils.pm
+++ b/perl/lib/Nix/Utils.pm
@@ -43,5 +43,5 @@ sub readFile {
 sub mkTempDir {
     my ($name) = @_;
     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";
 }