fix precedence in csh extra vars output

[p5sagit/local-lib.git] / lib / local / lib.pm

diff --git a/lib/local/lib.pm b/lib/local/lib.pm
index 47d9bef..248e8c5 100644 (file)
--- a/lib/local/lib.pm
+++ b/lib/local/lib.pm
@@ -349,9 +349,9 @@ sub build_csh_env_declaration {
   my ($class, $name, $args) = @_;
   my ($value, @vars) = $class->_interpolate($args, undef, undef, '"', qq{"\\"});
   (join '', map qq{if ! \$?$_ setenv $_ "";\n}, @vars)
-    . defined $value
+    . (defined $value
       ? qq{setenv $name "$value";\n}
-      : qq{unsetenv $name;\n};
+      : qq{unsetenv $name;\n});
 }
 sub build_cmd_env_declaration {
   my ($class, $name, $args) = @_;