fix precedence in csh extra vars output
Graham Knop [Wed, 20 Nov 2013 15:23:17 +0000 (10:23 -0500)]
lib/local/lib.pm

index 47d9bef..248e8c5 100644 (file)
@@ -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) = @_;